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Summary 

An algorithm to recognize and translate sets of character strings 
specified by canonic systems is presented. The ability of canonic systems 
to define the context sensitive features of strings and to specify their 
translation allows the algorithm to recognize and translate real computer 
languages. It is also applicable in other language systems. 

Canonic systems are discussed, and several examples of their use are 
given. The algorithm is described, and examples of canonic translation 
are presented using a program which implements it. 



-5- 



Pigures and Pi digrams 

Structure of program. 18 

Illustration of scan. 22 

Flowchart of simplified algorithm. 23 

Flowchart of general algorithm. 28 



-6- 



A Canonic Translator 

The development of a generalized compiler whose function is directed 
by a formal language specification has aroused significant interest and 
effort. This thesis presents an algorithm for the recognition and translation 
of character strings belonging to a set of strings whose syntax and translation 
have been defined by a canonic system. Since these systems are capable 
of defining context sensitive features of language, the algorithm can 
recognize and translate real computer languages. It is applicable to an 
even wider class of language systems, including boolean algebras and 
theorem proving, which can be characterized by this method. 

Canonic systems form the basis and motivation for this work. The 
first task of the paper is to discuss briefly and informally the improved 
specification of syntax and translation made possible by the development 
of canonic systems. The discussion includes a description of the form of 
the systems and several examples, among them a complete formal description 
for the syntax of the string processing language SNOBOL. The contribution 
of this thesis lies in the presentation of an explicit algorithm which 
employs a canonic system characterizing the syntax and translation of a 
set of source strings to recognize a particular source string and perform 
the translation. The latter part of the thesis describes the algorithm and 
the program which implements it. 
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I, Formal Syntax Specifications 

Backus-Naur Form is the most widely known formal specification of 
syntax. It provides a convenient starting point for a discussion of 
canonic systems. The general form of a rule or production of a BNF 
specification is as follows: 

<name 1> ::= terminal 10' <name 11> ... <name ln> terminal In | 

terminal 20 <name 22> ... <name 2m> terminal 2m | 

The sign ::= should be read "may be replaced by" and the vertical bar 
represents "or". The names enclosed within brackets are arbitrary designations 
for defined sets of strings. The definition may be recursive; that is, the 
set on the left may be defined in terms of itself if the name of the set 
also appears on the right, "terminal n m" designates an arbitrary string 
of terminal characters , possibly the null string. As a concrete example, 
consider the following BNF system. 

<.assignment> ::= <letter> = <expression> 
<expression> : := <letter> | <letter> + <expression> 
<letter> : := X | y| Z 
An example of a string which is a member of the set <assignment> is: 

Y « X + Z 
The strings comprising a set defined by a BNF system normally appear 
to be generated in a "top-down" manner. The highest level definition 
( < assignment > ) is generally placed first, and one normally reads a 
BNF rule from left to right. In order to gain some insight into the form 
and nature of canonic systems without launching into a formal definition, 
consider turning a BNF production around and modifying the punctuation somewhat. 

1. v letter y x expression [~ v = x assignment 

The lower case letters (v and x) are variables representing strings 



chosen from their respective sets (letter and expression ). The names of 
the sets are underlined and called predicates . The definition may be read 
very elaborately as follows: "If v represents a string chosen from the 
set letter , and if x represents a string chosen from the set expression , 
then the string formed by concatenating the string represented by v with 
an equals sign and the string represented by x is a member of the set 
assignment ." The sign c j-' acts as the conjunctive "and", and the sign [~ acts 
as an assertion sign. A string of variables and terminal characters (e.g. v=x) 
is a term , and a term followed by a predicate in the manner above is a 
remark . Those remarks to the left of the assertion sign are referred to 
as premises ; those to the right as conclusions . This example illustrates 
the most basic form of a canon in a canonic system. A more formal description 
may be found in Donovan (2) and Donovan and Ledgard (3). This discussion 
will remain highly informal. 

What improvements in the definition of a syntax do canonic systems 
permit? The principal weakness of BNF systems is their inability to describe 
the context sensitive features of a set of strings; for example, the 
requirement in most computer languages that all reference labels of a program 
be singly defined as statement labels. This restriction could only be 
imposed in BNF notation by some process akin to defining each possible 
legal program, in toto, in a separate BNF rule. Certainly all sets of 
strings which can be defined in BNF may be defined by a canonic system by 
transforming the rules in the manner illustrated above. In addition, one 
may "cross-reference", or use a variable more than once on the left. 



2. x name *f x label |~~ x lab 



el name 



Labelname is the intersection of label and name ; that is, only those 
strings which are members of both the set label and the set name are members 
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and makes it possible to generate all ordered pairs with the property 
described. 

A concrete example of the production of a particular member of a 
defined set will perhaps serve to clarify the nature and recursive properties 
of canonic systems. Assume we wish to show that <A < X, Y,> is a member 
of the set notin. Using canon 4, we may assert 

A letter . 
We may then substitute this result into the premise of canon 7, and assert 
that 

<A < A > notin . 
We then derive from canon 5 that 
<A<X> differ 
<A<Y> differ . 
Finally, we apply canon 8 twice as follows: 

<A<A> notin 4" <A<X> differ f <A<X,> notin 
<A<X,> notin <\- <A<Y> differ \~ <A<X, Y, > notin 
Note that we use the conclusion from the first application of the canon to 
establish the premise in the second application. 

Now that the reader has grasped some of the power and elegance of 
canonic systems, a short history of their development is in order. This 
work is based completely upon the presentation of canonic systems by Donovan 
and Ledgard (3) and Donovan (2), who is responsible for their appearance 
in present form. His work evolved from an applied variant of Smullyan's 
elementary formal systems (6) and Post's canonical systems (4). The present 
canonic systems are so named in recognition of Post's work. 

To further illustrate canonic systems, I present a complete syntactic 
definition of a restricted computer language MINI MAD. The present example 
and the foregoing example of notin both draw heavily from the examples 
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presented in Donovan (2). 

MINI MAD will permit only a few principal types of statements: an 
assignment statement, a transfer statement, and a statement formed by 
combining a simple conditional with one of the two other statements. 
All programs must terminate with an unlabeled END OF PROGRAM statement. 
The only boolean operator allowed is arithmetic equality (.E.), the only 
arithmetic operator allowed is addition (+) , and only arbitrary length 
integers will be permitted as constants. The permissible statement labels 
are the single letters A, B and C; the variable names allowed are the letters 
X, Y and Z. In addition, restrictions on statement length will be omitted 
and no blanks will be allowed save those which are part of the statement 
definition (e.g. TRANSFER TO). The character * will be adopted as an end- 
of-card character, analogous to a carriage return. It should be understood 
that all restrictions and omissions are introduced for the sake of simplicity. 
A complete formal syntactic definition of the string-processing language 
SNOBOL may be found in appendix 2. 

The following example is a member of the set MINI MAD program , with a 
carriage return substituted for the character *. 

A X=15 

B X=X+1 

WHENEVER X .E. 123, TRANSFER TO A 
TRANSFER TO B 

Three canons will suffice to define the set of arbitrary length integers. 
9. |~ 0a1a2a ... a 8 A 9 digit 
10* d digit f d integer 
11. d digit x i integer f~ di integer 

The use of the predicate notin, defined previously, will later implement 
the restriction that no statement labels be multiply defined. 
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12. f~ < A<B>a <A^C>^ <B^C> differ 

13. <x <y > differ \- <y<x> differ 

14 . d digit p < d < A> notin 

15. <x^y> no tin ^ <x< d> differ \~ <x<d, y> 



notin 



One should keep in mind that only lower case letters are used as 
variables representing strings. The signs | ,7 ,<£,A are punctuation 
signs in the canonic system itself. All other characters are drawn from 
the alphabet of the language being defined. 

The definition of the predicate _in will serve to implement the restriction 
that all reference labels be defined. The set _in will consist of pairs of 
letter lists such that all letters in the first list appear somewhere in 
the second list. If the list of reference labels and the list of statement 
labels in a program satisfy this relationship, we know that there is at 
least one statement label corresponding to every reference label. 

16. r AaBaC label 

17. I <A^ A> in 

18. <x <y > in 4 /label f- <x <- Z^f> in 

19. <x <y > in ^ / label f- <^ x < / ] y> in 

20. <x <y > in 4 <*<y> IS f-<xz<y> in 

Canon 17 provides a simple starting point for the recursive production 
of the more elaborate members of in, and corresponds to a program with 
neither statement nor reference labels. The next two canons describe the 
ways in which one may add to the lists of statement and reference labels. 
We may of course add a label at will to the list of statement labels, and 
may add a label to the reference label list as long as we also add it to 
the list of statement labels. The last canon provides for multiple referencing 
of a statement label. Using canons 16 through 19 alone, it is not possible 
to produce the following member of in 
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< B, B,< A, B, C> 

We may define the set expression as follows-. 

21. J - XaYaZ variable 

22. v variable f v expression 

23. i integer | i expression 

24. v variable ty x expression [" v + x expression 

25. i integer ^f x expressmen f~ i + x expression 

The predicate next defined, conditional , will permit us to transform 
any unconditional statement into a conditional statement when a string from 
the set is placed before the unconditional statement. 

26. |- A conditional 

27. x expression ^f y expression J WHENEVER X .E. Y, conditional 

Canon 26 allows us to produce a string which leaves the statement unchanged. 
Canon 27 defines a set of strings which will change any unconditional MINI 
MAD statement (e.g. X = 3) into a conditional statement (e.g. WHENEVER 
X + Y .E. Z, X = 3). 

The "building block" sets defined so far will permit us to define the 
set of MINI MAD programs in fairly short order. A convenient vehicle for 
the task is a predicate of order three. The first element of the ordered 
triplets which make up the set program with label lists will be a list, 
punctuated by commas, of all statement labels used. The third element will 
be a similar list of reference labels. The second element will be the 
string of statements in which these labels are used. Again, we begin with 
a convenient starting point for later recursion. 

28. f< A < A <A > program with label lists 

29. <s<p<r> program with label lists 4 v variable * x expression | c condition a 

r K $<. CV = X *P< r program with label lists 

30. <s<p<r> program with label lists 4^ label T v variable 1 x expression *f 

c conditional C^-<^ < s > notin 

Y <iJ. s^A CV=V *p<:r> program with label lists 
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Canons 29 and 30 describe the way in which we may add an assignment statement, 

either conditional or unconditional. Using the first canon of the two, 

we may add an unlabeled assignment statement; using the second, we may 

add a labeled statement. Note that the use of not in in canon 30 imposes the 

restriction that the label used must not be in the list of previous statement 

labels. 

30. <s <: p<:r> program with label lists y JL label c f' c conditional 

|~ <s <1 C TRANSFER TO i* p^ ^,r> program with label lists 

31. <s<rP<r> program with label lists y ^Am label 7 c conditional y 

< m^s not in 

I" m,s < m C TRANSFER TO I* p^Ar program with label lists 
These two canons allow use to construct strings which include labeled 
and unlabeled, conditional and unconditional transfer statements in a 
manner analogous to that of the preceding pair of canons. We now need but 
one more canon to produce strings which are legal MINI MAD programs. 

32. <s<p^;r> program with label lists y <r < ;s> in 

j- p END OF PROGRAM- MINI MAD program 

This canon insures that all reference labels in the members of the set 
MINI MAD program are defined, and that all programs are properly terminated. 
This completes one of many possible canonic system definition or programs 
in MINI MAD. The canons are collected in sequence in appendix 1. 

If the reader has clearly understood the manner in which canons may 
define, by production, the syntax of real computer languages, one further 
illustration may provide some insight into the manner in which these systems 
may also define translation. Assume one wishes to translate MINI MAD into 
another language, for instance an assembly language such as FAP. In order 
to accomplish this, one might expand program with label lists to include 
a fourth term which would contain the translation of the string of statements. 
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Th c canon for an unconditional, unlabeled TRANSr'KR TO stateniont miadit 
appear as follows. 



33. <s< lP< -r,.t: 



Tro-rani o ih h label lists and translation C |' I label 



(- <s< TRATSf'dK TO /" p^ l^' ^ TKA /-> 



pro 



■ a:.- viL : ! lain" 1 1 lists and trnnslat i ;n: 



This possibility of canonic specification of translation will be pursued 
furLhcr in the description of the algorithm which forms the contribution 

of this thesis, to which I now turn. 
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II. The Recognition and Translation Algorithm 

Canonic systems will prove very useful in explicitly and concisely 
defining sets of strings such as computer languages. Such definitions would 
eliminate many ambiguities existing in language manuals. These systems 
could prove of greater value, however, if a canonic system could be used 
as a basis for recognizing strings from the defined set. In addition, if 
the members of the defined set are ordered pairs, triplets, etc., the 
usefulness of canonic systems would be still further extended if the 
algorithm could be used to produce the missing terms corresponding to a 
given term. The remaining part of this thesis discusses such an algorithm, 
the program which implements it, and the nature of the constraints imposed 
on the canons in order that the program be able to interpret them. 

This algorithm is an extension of the algorithm presented by Cheathem 
and Sattley (1) , which is capable of recognizing strings produced by a 
Backus-Naur system. The modifications to their algorithm, which appears 
here in quite different form, reflect the greater power of canonic systems 
in defining strings. These modifications include mechanisms for handling 
predicates of degree greater than one, for properly interpreting the 
multiple use of a variable among the premises, and for generating the 
translation specified. In the case of a canonic system where all predicates 
are of degree one, and no "cross-referencing" is used, the algorithm operates 
in a manner almost identical to that of Cheatham and Sattley. 

The program which embodies the algorithm divides into two parts. A 
preliminary phase checks the syntax of the canonic system used. It insures, 
for example, that all variables used in the conclusion of a canon are to be 
found in the premises, and that all predicates used as premises are defined 
somewhere as conclusions. Further restrictions, which will be clarified 
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later, are imposed on the form of the canons and are checked at this point. 

The program then assembles the canons into a list structure which reflects 

their form and content, and control is passed to the evaluative phase of 

the program. The SLIP list-processing system, developed by Weizenbaum (7) 

vastly simplified the implementation of the algorithm. 

INPUT STRINGS 



Canonic System - 



Check syntax of 
canonic system 
and 
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list structure 

for 
canonic system 



scan of 
input string(s) 
and generation 
of translation 



Y 

TRANSLATION 



Fig. 1. Structure of Program 



The second part of the program represents the principal programming 
effort. This phase scans the input string, determines whether it satisfies 
the canonic definition, and generates any associated translations. The 
algorithm is principally "top-down"; it attempts first to match the input 
string against the final predicate in the canonic system (e.g. MINI MAD program ) , 
and it arrives only through recursion at a lower-level predicate, (e.g. 
integer or digit ). Consider the following simplified statement of the 
algorithm for the case of a canonic system involving only predicates of 
degree one. The simplified algorithm will be later expanded to include 
more general cases. Imagine an arbitrary character string, with a mental 
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pointer to the left of the first character, and a canonic system defining 
a set of strings. We wish to determine whether the character string is 
a member of the set. 

1. The program considers in sequence those canons directly defining the 
string in question, and performs the following steps (2 through 6) for 
each such canon. 

2. The conclusion of the canon is matched, item by item, against the 
input string. If the item in the conclusion is a terminal character, 

step 3 is performed; if a variable, step 4 is performed. If the end of the 
canon is reached, the algorithm proceeds to step 5. 

3. The item in the conclusion is a terminal character. It is compared 
with the character in the input string to the right of the mental pointer. 
If they are identical, the program returns to step 2 to consider the next 
item in the conclusion, with the pointer shifted one position to the right. 
If not, the scan fails and the program returns to step 1 to consider any 
remaining canons for the string. 

4. The item in the conclusion is a variable, and the program must operate 
recursively to determine the definition of the variable in terms of the 
input string. In other words.it must determine the number of characters 
from the input string, commencing with the character to the right of the 
pointer, which should be alloted to the definition of this variable. To 
accomplish this, the program assembles a new input string which is a copy 
of all input characters to the right of the pointer, and picks a predicate 
among the premises of the canon which contains the variable. After saving 
its present state, the program returns to step 1 to determine the definition 
of the variable by examining the canons defining the premise predicate 
chosen. If there is no response upon return, the scan fails and the 
program returns to step 1 to consider alternative definitions of the string. 
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If there is a response, the program conpares it with the original input 
string to determine the definition of the variable and moves the mental 
pointer to its new position following the definition of the variable. 
The algorithm returns to step 2. 

5. The scan of the conclusion is complete, and the definitions, in terms 
of the input characters, of the variables appearing in the conclusion have 
been recorded. The algorithm now inspects the premises. Those premises 

used in step 4 to determine the definitions of the variables in the conclusion 
may already be asserted, since they were used to generate the definitions. 
However, a variable may appear twice in the premises, and we must insure 
that the string which forms the definition of the variable is a member of 
both sets. The algorithm forms an input string from the definition of the 
variable and operates recursively to determine if the other premise 
containing the variable is also true; i.e., if the string which is the 
definition of the variable is also a member of the second set named as 
a premise predicate. Upon return, if there is no response, the algorithm 
returns to step 1 to pursue alternatives as before. If there is a response, 
the program insures that the string has been fully scanned. If there are 
still more unchecked premises, it treats them in the same manner. After 
all such premises have been successfully verified, the simplified algorithm 
proceeds to the last step. 

6. The results of the scan at this level, which constitute the response 
for the next higher level, are assembled. There are no results if the 
scan failed. Otherwise, they consist of the input string with the mental 
pointer resting at the point where the scan of the conclusion was completed. 
The algorithm now returns to step 1, if there are more canons directly 
defining the set of which the input string is possibly a member. Since 
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each canon could conceivably add to the results, the program must actually 
be equipped to handle multiple results and hence multiple responses at the 
next higher level, and check out each possibility. The example which 
follows will serve to clarify the problem. If there are no further canons, 
the program proceeds to step 7. 

7. The program "pops" its state; that is, it returns to pick up where it 
left off at the next higher level. If the highest level has been reached, 
then the results are examined for a completely scanned input string. If 
such a response is found, the input string is a member of the originally 
defined set. If not, there exists a syntax error in the string. It is 
not clear that the set of all syntactically incorrect sets will be recognized 
by the algorithm. This recognition may be unsolvable in general. The 
algorithm is flowcharted below. 

A simple example will serve to illustrate the process and the problems 
involved in multiple answers. Consider the following canonic system. 

34. |- 1 digit 

35. r 2 digit 

36. |- 3 digit 

37. d digit [ d integer 

38. d digit Y i integer j di integer 

This system defines integers as arbitrary length strings of 1, 2 and 3. We 
wish to determine by use of the algorithm whether the string 31 is an 
integer. The process is described in the shorthand fashion below. 
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Recursion 
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Flowchart of Simplified Algorithm 
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At this point, the algorithm has arrived at two answers; i.e., that 3 
and 31 are both integers. The first could not be immediately rejected 
because the algorithm has no global overview which informs it that there is 
no syntactic type following integer which would account for the rest of the 
string. At level zero however, we may eliminate such results, and the 
single assertion that 31 is indeed an integer remains. 

We now consider the problem of left recursion. Suppose one wrote 
canon 38 in the following manner. 
39. i integer \ d digit | id integer 
The defined set integer has not been altered, but Che algorithm will no 
longer function correctly. Note that whenever the program operates 
recursively to determine the definition of integer (steps 1, 10, 20), 
the length of the input string has been reduced by one character. Unless 
the scan proceeded from right to left, the program using the canon above 
would be caught in an endless loop, terminated only by the exhaustion of 
memory. Although it would be possible to devise a scheme to avoid the 
problem and still interpret the canon correctly, this would require 
some substantial effort which adds nothing to the scope or generality of 
this work. Instead, the canons are inspected for left recursion and rejected 
if it occurs. This constraint does not prevent the definition of any set 
of strings which could otherwise be defined. 

The example brings out one other problem. At different points in the 
procedure (e.g. steps 42 and 43), the program must handle several possible 
answers which result from the various ways in which the canons may define 
the input. On a theoretical level this presents no problem, but in practice 
the manipulation of multiple large and nearly identical lists may exhaust 
memory. For this reason, one should follow two suggestions in using the 
system. Firstly, all syntactic types should be defined in as little 
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context as possible, so that the legality of a particular string is immediately 
apparent, and does not depend on a construction occurring much further 
along in the input. In particular, the canonic system should not allow 
the input string to be parsed in several different ways, only to discover 
much later that only one is legal. To do so involves the risk of exhausting 
memory. Secondly, the canonic system should be unambiguous; that is, a 
particular string should be generated by only one production or path of 
application through the canons. Otherwise, both productions will give rise 
to results. Although the ambiguity could be eliminated by checking for 
identity among the results at any particular point, the comparisons would 
be extremely time consuming. 

We turn now to an extension of the algorithm for the case in which 
we wish to consider evaluating a predicate of degree greater than one, for 
which one or more of the terms arenot known and are desired as translated 
output. The algorithm is presented at an arbitrary recursive level with 
input of arbitrary degree. For some of the input terms a character string 
is provided; some are merely marked "needed". Imagine a pointer positioned 
as before to the left of every term of the input set for which a character 
string is provided. 

1. The program considers in sequence those canons directly defining the 
input in question, and performs the following steps (2 through 7) for each 
such canon. 

2. The algorithm assembles a list of undefined variables which occur 
in those terms of the conclusion corresponding to "needed" terms in the 
input set. These are variables which would not normally be defined during 
the scan of the conclusion, but for which definitions must be obtained in 
order to generate the required translations. Variables appearing only in 
the premises of the canon and not in the conclusion are also added to the 
list. 
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3. The input strings provided are matched in sequence against the corresponding 
terms in the conclusion of the canon. The program skips conslusion terms 
corresponding to "needed" terms in the input set. If the item in the 
conclusion at any particular point is a terminal character, the algorithm 
performs step 4; if a variable, the algorithm performs step 5. When the 

scan of a term is complete, the program leaves the pointer where it rests 
and proceeds to the next term for which input is provided. When all such 
terms are scanned, the algorithm proceeds to step 6. 

4. The item in the conclusion is a terminal character. It is compared 
with the character to the right of the pointer in the input string. If 
they are identical, the program returns to step 3 with the pointer shifted 
right one position. If they differ, the scan fails at this point and the 
algorithm returns to step 1 to pursue alternative definitions for the input. 

5. The item in the conclusion is a variable, and the algorithm must operate 
recursively to determine its definition. The program assembles a new input 
sequence from one of the premises in which the input appears. For the 
other terms in the premises, it assembles a character string if the variables 
therein have been defined. If one or more of the variables is undefined 

and in the "needed" list, it marks the term as "needed". Otherwise, the 
term is marked as unneeded. The program saves its state and returns to 
step 1 with the assembled input set for the chosen premise predicate. 
Upon return, if there is no response, the scan fails. If there is a 
response, the pointer of the input string is advanced accordingly, the 
definition of the undefined variables recorded, and the algorithm returns 
to step 3. 

6. The scan of the conclusion is complete. Those premises which were 
not employed during the scan to generate definitions must now be verified. 
For these premises, the proper input strings for the terms are assembled 
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from the now-defined variables, and the algorithm operates recursively 

to determine whether the premise is satisfied. When all unchecked premises 

have been satisfied, the algorithm proceeds to the final step. If the 

return from recursion produces no response, or an input string not fully 

scanned, the scan fails and the algorithm returns to step 1 to consider 

any remaining canons. 

7. If the scan succeeded, the results for the next higher level of recursion 

are assembled. For each term given as a string, the string is returned 

with the mental pointer moved to a position following the last character 

inspected in the conclusion scan. For each "needed" term, the definition 

of the term is assembled from the terminal characters and the now-defined 

variables in that term of the conclusion. If there are more canons to be 

considered, the algorithm returns to step 1. If not at level 0, the program 

then pops to the next higher level. If the zero recursion level has been 

reached, the evaluation is nearly complete. The results are checked to 

determine if there is a response in which all given terms have been fully 

scanned. If so, the "needed" terms are outputted. If not, there is a 

syntax error in the input. The expanded algorithm is presented as a flowchart 

below. 
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Flowchart of General Algorithm 
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A step-by-step example such as the previous table would be unduly 
lengthy when considering a non-trivial evaluation of a predicate of degree 
greater than one. Instead, consider as an example the action of the algorithm 
at the highest level of recursion as it seeks to determine whether an 
input string is a legal MINI MAD program. The only relevant canon is 
the last one. 
40. <s < p < r> program with label lists <r < s> in 
|- p END OF PROGRAM * MINI MAD program 
The algorithm is presented with an input string which is possibly a member 
of the set MINI MAD program . Before beginning to scan the input, the 
program determines that s and r cannot be defined in terms of the input, 
and places these variables in the undefined list. It then begins the 
match of the input string against the conclusion of the canon. Since the 
item in the conclusion is a variable, it turns to the first premise, which 
contains p as a variable, in order to determine the definition of p in 
terms of the input string. Since s and r are in the undefined list, it 
marks these terms as "needed", and operates recursively to determine 
whether p is valid, and to produce s and r. The algorithm is presented at 
the next lower level with an ordered triplet in which the first and third 
elements are "needed" flags, and the second element an input string. If 
the input is indeed valid, excluding the requirement that all reference 
labels be defined, the algorithm will scan the input string at progressively 
deeper levels of recursion, eventually parsing out the statement labels, 
the various statements, etc. Since the first and third terms of program with 
label lists are "needed", it will build up these terms from the various 
statement and reference labels in the program, as directed by the canons 
which define program with label lists . Eventually, the algorithm will 
return to level zero. If there is no response returned from the lower level, 
the scan failed. If there is a response, it will consist of the input 
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string with the pointer shifted to the right, and the accompanying lists 
which comprise the first and third terms of program with label lists . The 
remaining part of the input string is then checked to see whether it consists 
of END OF PROGRAM-'. S and r are now defined. In order to verify the 
second premise, the algorithm assembles an input set from r and s, and 
operates recursively to determine if the two lists satisfy the relationship 
in. Upon return, if there is a response, the program checks to see that 
both terms are fully scanned; that is, that the definitions of r and s 
agree in both premises. Since both premises are now satisfied, the 
algorithm returns the scanned input string as a response; The program is 
at level 0, and control is given to a final routine which insures that, if 
there is a response, the input string has been fully scanned. The routine 
prints out a message to the effect that the input was or was not legal 
MINI MAD. 

We turn now to the problems which may be encountered in evaluating the 
input in this manner. The potentially most disastrous problem is that of 
deciding how to generate the definition of variables not defined by the 
input. In the example above, there is no deterministic way of discovering 
from the one canon alone why the algorithm should not employ the second 
premise to generate the label lists. In this case, both terms of an input 
set would be marked "needed", and the canon would operate recursively to 
determine the members of the set. The definitions would be inserted, one 
at a time, into the first premise until the correct ordered pair for 
the particular input were found. Unfortunately in is an infinite set. 
Thus, if both terms are marked "needed", the algorithm sets about generating 
all possible members of the set and speedily exhausts memory. On the other 
hand, when the definitions for r and s are determined in conjunction with 
the scan of p as terms in pro gram with label lists , only one ordered pair 
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of label lists will be produced and inserted in the second premise. A 
similar but less serious problem might arise in determining the definition 
of p, if there were more than one premise containing p. Again, the choice 
of one premise over the other as a vehicle for determining the definition of 
p might result in a markedly different number of returned responses. These 
problems have been solved by transferring the decision to the user, who 
indicates how the definition of a variable should be determined by marking 
one appearance of the variable in the premises with a prefixed dollar sign. 
When the program encounters the variable in the conclusion, it will employ 
the premise in which the variable appears with the dollar sign as the 
vehicle to determine its definition. If there is no dollar sign, the program 
uses the premise in which the variable first occurs. Similarly, when 
considering the other terms of the chosen premise, the algorithm will 
mark the term as needed only if the variables therein are prefixed with 
the dollar sign, or if there is no other term in which they appear. 

Another simplification is introduced in order to ease the programming 
effort. The restriction that premise terms contain one and only one 
variable reduces the complexity of the list manipulation which the program 
must perform. Again, this does not prevent the definition of sets whose 
definition is otherwise possibly. The premises in the canonic system which 
defines MINI MAD contain one and only one variable. An important point 
is that with the restriction we have placed on canonic systems we have in 
no way diminished their power. 

This completes the description of the algorithm on the procedural 
level. The details of the use of the program, with examples, are described 
in appendix 3. We now turn to the intriguing question of the practicality 
of the canonic translator as a useful compiler. 
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The present program is wholly experimental, and we intend to use it 
to study the translation process. Three limitations exclude it from serious 
consideration as a practical device. 

1. Speed. The program inns, conservatively, over 1000 times more 
slowly than a normal compiler. 

2. Limitations on input. The program cannot accomodate large 
quantities of input data. 

3. Error indications. If the scan fails, the program pinpoints 
the last character inspected in the input string, but goes no further. 
Thus, only one syntax error is detected per compilation. 

I feel these limitations can be overcome, and that an implementation 
of the algorithm might be extremely useful in acting as a trial compiler 
in the design of a language, or as a regular compiler for lesser used 
languages where the additional efficiency of a dedicated compiler is not 
worth the effort necessary to produce one. I shall not consider the use 
of the algorithm for other language systems, such as the proof of theorems 
in boolean algebra. The further restrictions imposed on the generality of 
the algorithm in order to overcome the three limitations will probably reduce 
its usefullness in other more exotic areas. The proposals follow in order 
of increasing returns and commensurate restrictions on the algorithm. 

1. Redesign and rewrite the program in assembly language. The 
program as it now stands is the MAD language in neither elegantly designed 
■nor brilliantly executed. The pressure of time and the necessity to have 
the program work no matter how clumsily, prevented extensive streamlining. 

2. Develop, perhaps in conjunction with proposal 1, a list processing 
system or data structure designed specifically for the algorithm. The 

SLIP list-processing system is elegantly designed, but its generality 
necessarily reduces its efficiency for this task. Measure 1 and 2 might 
provide a five-fold increase in speed, and a doubling of input handling 
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capacity. 

3. Presently, all strings must be members of defined sets in order 
for premises to be asserted. Consider placing the left of the assertion 
sign premises which are true if and only if the definition of the variables 
are not members of the defined sets. presently, it requires on the order 

of 26 2/2 canons to define the predicate differ for all letters of the 
alphabet. By defining a predicate same , as below, one could reduce this 
to 27 canons. 

|- <A <r A> A <B<B>^ A <Z<Z>; same <x <r y> same [ <x < y> differ 

The sign r^/ indicates that the ordered pair x<y must not be a member 
of the set same in order to be a member of the set differ . This procedure 
would involve problems in originally defining variables, but could be used 
in premises which would only be verified after the variables have been 
defined. A moderate increase in speed would result, but the mathematical 
basis for canonic systems might well be destroyed. The possible implications 
of such a modification are vast and unexplored, 

4. The compilation of a program never produces two different 
translations. This fact raises questions about the efficiency of handling 
multiple results at many points in the procedure (e.g. in the example for 
the simplified algorithm). A program, at any point in the scan of the 
source statement, is either possibly syntactically valid or definitely 
invalid. The source statements cannot be construed in several different 
syntactically valid ways. Consider establishing the rule that the algorithm, 
at any point in the recursion, returns only the first valid definition it 
discovers for the predicate. Assume the definition of integer were as 
follows. 

41. d digit \ i integer | di integer 
^2. d digit r d integer 
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Note that the recursive definition precedes the simpler canon, and the 
program considers it first. The action of the algorithm will be such that 
it continually operates recursively, eliminating a digit at each level, 
until it encounters a character other than a digit. The algorithm then 
"backs-up" one level, considers the alternative definition, and returns 
only one answer - an integer of the longest possible length , which is the 
definition actually desired. The implications of such a restriction are 
vast. By suitably positioning the non-recursive canons, one immediately 
eliminates more than half of the searching the program must perform. More 
importantly, such a rule eliminates all the list manipulation and duplica- 
tion the program must presently execute. The manipulations are largely 
responsible for the complexity and inefficiency of the present implementa- 
tion. Finally, such a restriction eliminates much "back-tracking", and 
makes it possible to contemplate a single, top-to-bottom pass of the input 
from auxiliary storage. Likewise, only one set of translation and "needed" 
lists must be built up, and this makes it possible to arrange the lists in 
a more conventional and more efficient format. The careful and imaginative 
implementation of this restriction might improve the speed of compilation 
by a factor of 50, and make the input capacity of the program comparable to 
that of conventional compilers. The usefulness of the translator for more 
general purposes would be, however, sever ly restricted. 

5. One might consider using external subroutines to perform those 
functions (e.g. in and not in ) clumsily handled by an algorithm which must 
essentially reverse the canonic production of the defined strings. If, as 
a result of proposal 4, the lists were arranged in a more conventional 
fashion, such subroutines might be easily implemented. 

6. Finally, "system predicates" might be useful. The implementation 
of the algorithm would consider such elementary predicates as letter , digit 
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and differ to be understood, so that they need not be defined. Determining 
that A differs from B by testing whether or not B is one of the other 25 
letters is hardly an efficient procedure. Such a provision might greatly 
speed the compilation. 

We have not considered the uses of the algorithm in areas other than 
language translation, and the implementation of some of these measures, part- 
icularly 4, would severely hamper the ability of the algorithm to perform the 
intent of the canonic system. Other measures, particularly 1 and 6, might 
still prove useful. Ihave also avoided proposing a means of dealing with 
the problem of error indications. This problem might well be the most 
difficult to solve, but should probably consist of mechanism whereby the 
algorithm backtracks one syntactic type (e.g. statement) from the one in 
which the error was detected, skips the syntactic type, and proceeds from 
there on. Such a procedure might well produce fast and efficient syntax 
error elimination similar to that produced by a normal compiler. 

Canonic systems are extremely powerful mechanisms for the definition 
of complicated strings. The areas in which canonic systems are applicable, 
and the possibilities for future study, are both vast and exciting. The 
possibility of a truly practical generalized compiler implemented through 
canonic systems deserves further investigation. 
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Appendix 1 . 



not in 



A. Canonic system specification of the syntax of MINI MAD. 

1. Digit |~ 0^1i2i ... a8 ^9 digit 

2. Integer d digit [ d integer 

d digit c|- i integer [ di integer 

3. Label I Ai B,: C label 

4. Differ f~ <A<B>^ <A<C> <B<C> differ 

<x<y> differ, - <y< x> differ 

5. Notin H label f-<XA>notin 

<x y> notin A <x< i> differ I <x<J? ,y> 

6 . In Y </< A> in 

<x< y> in Y £- label |- <x<^ , y> in 
<x< y> in ^ label [- <^,x< J 7 ,y> in 

<*< y> is. ^ < z < y> is \ < xz - y> is 

7. Variable k Xi Yi Z variable 

8. Expression v variable f- v expression 

i integer L i expression 

v variable i- x expression Y v+x expression 

i integer <i x expression V i+x ex pression 

9. Conditional J- / conditional 

x expression i y expression h WHENEVER x .E. y, conditional 

10. Program with label lists 

L < A./ A<- K> program with label lists 

<s^ p< r> program with label lists 4- v variable L x expression d^ 

... - ^ .. . ^ _-.i.T_ 1_1-„1 1J„t-„ 



c conditional r <s CV=X * p<: r> program with label lists 
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<s^ p < r> program with label lists J, <^ £ < s> not in cl' 

„ „„,,.: „-l-< ,. J ' -. ; I 'j-*.- i I ' 



v variable <. *■ x expression <L c c onditional V 



<^,s< 



cv=x - p r> program with label lists 



<s< p^ r> program with label lists L m label i- c conditional 
V <s^ c TRANSFER TO m * p< m, r> 
program with label lists 

<s < p< r> program with label lists t[- m label ^ <^s> not in 
T- c conditional \<)l ,s < i c TRANSFER TO m * p^ m,s> 
program with label lists 



11. MINI MAD program 



<s< p<: r> program with label lists 4- <r < s> in 
L p END OF PROGRAM * MINI MAD program 



This empty page was substituted for a 
blank page in the original document. 
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B. Canonic system specification of the syntax and translation of MINI MAD 

into PSEUDO FAP. The dollar sign in PSEUDO FAP indicates "this location". 



1. Digit [ 0ili2i ... ^8 a 9 digit 

2. Integer d digit f d integer 

d digit Ay i integer \~ di integer 

3. Label | AaBaC label 

A. Differ [ < A^B> a < A^ C> a <B^ C> differ 

<x <y> differ \- <y^x> differ 

5. Notin J label |" <^<A> not in 

<x^y> noting <x<^.> differ [< x <y £ y> notin 

6. in l <A<A > is. 

<x<y> in ^ I label (~ < x^, y> in 
<x<y> In 4-^ label I- <sjx^.f, y> in 

< x <y> in 4" < x <y > is. h < xz <y> ia 

7. Variable | X^ Ya Z variable 

8. Expression v variable p v<CLA v*> expression 

* integer f- i<CLA = i *- > expression 

v variable 4 < x <■ i> expression \ < v+x < y ADD v* *> expression 

i. integer 4"< x < v ^ > expression r < i+x.c y ADD = i* > expression 

9. Conditional f" <A<A > conditional 

<x < y> expression *j < u <v> expression 
f- < WHENEVER x.E.u, <y STO TMP* 

SUB TMP* TNZ $+3> conditional 

10. Program with translation 

(- < A < A < A^ A > program with translation 
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<s^ p^-r^ t> program with translation d. v variable 
i-<x<; y> expression cL <c<=. d> conditional L 
<s < cv=x * p< r,, y STO TNP * 

d CIA TNP * STO V * t> 

progr am with translation 

<s < - p^ r< t> program with translation V < J?< s > not in cL 
v variable <i <x y> expression a- <c. c d> conditional 
I <$ , s < J cv=x^ p^ r^ 
/ y STO TNP* d CLA TNP* STO V * t> 

< s^; p< r< t> program with translation a, m label < c^- d> conditional h- 

<s < c TRANSFER TO m * p.- m, v < d TRA m * NOP * t> 

program with translation 

<s < p< r^ t> program with translation L m label q- < X. t s> not in L c conditional 
L<i )S< ^ c TRANSFER TO m * p.- m, s^ / d TRA m * NOP* t > 
program with translation 

11. MINI MAD - PSEUDO FAP 

<^s < p < -r < -t> program with translation ^j- <r ^ s^> in 

\- < p END OF PROGRAM*^ t HLT* 
TMP DEC" TNP DEC* END *> 
MINI MAD - PSEUDO FAP 
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As an example, the program given previously in the text is reproduced 
below with the v.qw i.va.i ent i'SEUDO FAi' program. 
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Appendix 2. 

A canonic system specification for the syntax of SNOBOL. 

The canonic system presented in this appendix defines the syntax 
of SNOBOL as implemented on the 7094 CTSS system at MIT. The language 
is used for string processing and contains statements for string 
matching, replacing, deleting and inserting. The language also 
has a few arithmetic capabilities. Those not familiar with the 
language may find reference 5 useful. 

The canonic system is listed below. \ represents a space. 

1. ^A A B A C ...X^Z letter 

2- [■ 0^2 ... 7 A 8 A 9 digit 

3 . x letter iy digit L x y . name character 

4. x name character 



-x, '* + -/? = $ label chara cter 



5. x name character I x ,, ( ) * + / ? = $ string character 

6. x string character L x ' character 

7. -+.-»/* operator 

& a b — 

8. L J. tab 

9. L ^ carriage return 

10. x spaces L \ xA. spaces 

11. a d b / 1 c A d / 1 e A f name character L a^ab, abc^abcd^abcde^abcdef string name 

12. x string character <iy string I xy string 

13. x string L 'x' lit 



iteral 

az label 



14. x letter A.y digit d z label character d> a label L x y 

15. x digit d- y integer U x yx integer 
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16. x string name <iy literal U x y operand 

17. x,y operand d z expression <l v operator C^s spaces 

L xsvsy. xsvsz . zsvsy . (z) expression 

18. x operand cl'y expression q/z term cy s spaces 

L x y . zsx , zsy term 

19. x term L ^ x concatenation 



20. x string name f- *x* variable name 

21. x y string name d' z integ er V *x/y* A *x/'z'* fixed length name 

22. x string name L *(x)* balanced name 

23. x string name A. y literal d u v term d'w indirect name 

ck s spaces t- $x . $y . $(w) /t $(usw) $(wsu) $(uswsv) indirect name 

24. <A < B>^ < C> A ...> < C> A ... A <= < » differ 

25 a A e A f sjtring 4 (b<c) differ I- {ace^bf) differen t 

26. ^ y) different |- ^x) different 

27. x label A y list L- /\ . yxu) list 



28. x list 



29. x A y list a^/wy xyjrn O'l label h /wlw^ xlioy) in 

30 . /w < xy) jjid & < x y/lB r \ wu < K y 3JG: 



31. x label f- /x^/A) notin 



32. x y label d-/x < y) different d/x ^ z\ notin - /x < zyw) notin 

33 . x string name 4- y concatenation d s spaces 

|-xs=sy assignment statement 

34 . x operand C^ y expression c| u variable name a' v fixed length name 

d- w balanced name O z indirect name I- u v. w . 



"A *A y A 2 



scan operand 
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35. x scan operand cl-z scan Cvs spaces 

36. x operand CJ' y concatenation CVz scan Cps spa 

r xsz , xszs=sy scan statement 

r * — 

37. p -EJECT^ -LIST ^ -NULLOP OP^ -PCC A - SPACE A -TITLE 

A -UNLIST control word 
A ■ 

38. x operand Q'a arguments f- ^x^ajX. x.a^'a'^ (a) arguments 

39. x string name Cpa arguments k x(a) string name CU- 

x(a) system function 

40. x label Q-'y indirect name I \ x < x(J^ 4 ^y < -/0 reference label 

41. ^x <y ) 4 (w <Z ) reference label L ^/(^y^/Sfx^W/FW^^ 

z ^S(x)F(w) < yz\ branch 

42. x scan statement CKy assignment statement Ckz system function 

/u^v) branch ^rs spaces i- /x^./\\ /V, A/A xsu < v / 
/ysu < v\ , \ Z < A\ / X SU ( V / right hand side 

43. ^ x <y right hand side f- ^ENB^x^yN VEND, /\ end card 

44 . L /A ^ A ^ A ^ program string 

45. /pq^r) program string i^Kx control word J- /p^qxj^ry program string 

46. /p < q < r^ program string Qr^x. < y\ right hand side <d" u label 

Cy \ U <P) not in I A^q+x il^ry/^ (puto^quix^ry^ pro gram string 

47. /p < q^r\ program string d^END^p) no tin Q'\ x ^y/ end card 

d-^y < P^ in L qx J program 
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Appendix 3 . 

Use of Program. 

The program which implements the algorithm allows the user to type in 
a series of canons defining a set of strings, followed by the input he wishes 
to have analyzed. The program then scans the input string or strings for 
correct syntax. If the input is syntactically correct, a message to this effect 
is printed. Further, if the input is defined as only one of several terms 
in the final predicate of the canonic system, the other terms corresponding 
to the input may be produced. If the scan fails, the program identifies 
the character in the input string which was the last character inspected. 

The sequence of messages and the proper responses as the program 
executes on the MIT CTSS system are as follows. 
INPUT CANONS. 

A set of canons may now be input, subject to the restrictions described in 
the text and summarized briefly below. 

1. Canons may contain only one conclusion. 

2. The terms of the premise predicates may contain one and only one 
variable, and no terminal characters. 

3. Left recursion in all terms of a predicate is not permitted. Partial left 
recursion evokes a warning message. 

The user inputs the canons according to the following rules which implement 

the punctuation of the canonic system. 

1. Strings of terminal characters must be enclosed in break characters 
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( ' / or*). 

2. The elicit ] and tin.- digit 2 when not enclosed in brinks represent 
respectively a tad am! a carriage return. 

3. Letters rqM'csLiil variables. All variables used in the conclusion must 
be defined, ir. tin. premises. 

4. Predicate names urns! consist of six characters or less, and be enclosed 

in hyphens . 

5. The terms of a predicate are separated by periods. 

6. The premise remarks of a canon are separated by commas. 

7. An equals sign replaced die assertion sign. 

8. Spaces and carriage returns are ignored except when enclosed in breaks, 
but each line ma-, not contain more than one canon. 

The examples at the one of this appendix will serve to clarify the syntax rules. 

After the last canon, the user types 'end' at the beginning of a line. The 

program responds with the following sequence after checking that all predicates 

used as premises are defined as conclusions. 

CONSn.br NT ShT OF CANONS. 

LIST OF DhlTNbG PRLDICATHS AND DhGbHbS. 

The predncat.es typed m are then listed in the order in which they first appeared. 

INPUT 01 : SOUPCh STRING'S. 

TYPh FINAL PAhLKAV Hi. 
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The user responds by typing the predicate name which defines the input string 

he wishes the program to consider. 

TYPE -NONEED-, -NEED- OR -INPUT- FOR EACH TERM. 

TERM NUMBER n OF -predicate - 

At this point the user declares which terms of the final predicate he wishes to 

input and which terms he desires as translation. 'Noneed' indicates that he 

wishes neither to input the term nor receive it as output. 'Need' indicates 

he wishes to receive the term as a translation. 'Input' means that he wishes 

to type in an input string for the term. In this case, the program responds. 

INPUT STRING. EXTRA CARRIAGE RETURN INDICATES END. 

The user may now type in input which will be verified for syntactic correctness, 

and for which the program will produce output corresponding to 'needed' 

terms. Carriage returns are counted as characters. If the user wishes instead 

to input card images, he may do so by typing in 80 characters or more. The 

input is truncated at 80 characters and in this case the carriage return will 

not be counted. 

After all terms of the final predicate have been considered, the program types 

this message. 

TYPE 0, 1 OR 2 FOR DEPTH OF COMMENTS. 

The user responds by typing a single number. If 0, the program will print 

only the final results. If 1, it will remark on extraordinary conditions which 

occur. Typing 2 results in messages whenever the program "pops" or "pushes". 

A larger number will result in the output of various lists which comprise the 

intermediate results of the scan. These lists, while useful during program 
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during program debugging, are rather incomprehensible except to those 
familiar widi both the program and the SLIP system. 
The program then types 
SCAN BEGINS. 

When the program returns to the zero level of recursion, it will type out the 
results of the analysis. If the scan succeeds, and if terms are 'needed', 
these terms are printed. If there is more than one translation, all will 
be printed. In the examples which follow, the execution time, which is 
printed in seconds at the end of the run, indicates the problems of execution 
speed to be overcome if one wishes to make a practical canonic translator. 

There are three examples of canonic translation. The first is relatively 
simple. It illustrates a scheme for coding messages by replacing the 
letters in the message with their successors in the alphabet. The 
second example demonstrates the construction of an expression in MINI MAD 
and the corresponding PSEUDO FAP instructions. The third example, 
an extension of the second, demonstrates the construction of an assignment 
statement in MINI MAD and the translation into PSEUDO FAP. Note that 
no data cells were reserved, although this could have been easily implemented. 
A final example illustrates the error analysis of the program. 
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resurne thesis 
INPUT CANONS. 



a ' . ' b' -pa i r- 

* 'b' . 'c* -pal r- 
= 'c' . 'd' -pai r- 
= 'd'.'e* -palr- 

* 'e'.'f' -palr- 
= 'f'.'a' -pa?r- 

x.y -pair- = x.y -code- 

x.y -pair-, u.v -code- = xu.yv -code- 

u.v -code- = u2 . v 1 is the coded message for *u2 -messag- 

end 

CONSISTENT SET OF CANONS. 

LIST OF DEFINED PREDICATES AND DEGREES. 

1. - PAIR- 2 

2. - CODE- 2 

3. -MESSAG- 2 

INPUT OF SOURCE STRINGS. 
TYPE FINAL PREDICATE, 
messag 

TYPE -NONEED-, -NEED- OR -INPUT- FOR EACH TERM. 

TERM NUMBER 1 OF -MESSAG- 
Input 

INPUT STRING. EXTRA CARRIAGE RETURN INDICATES END. 
abcdef 



TERM NUMBER 2 OF -MESSAG- 
need 

TYPE 0, 1 OR 2 FOR DEPTH OF COMMENTS. 


SCAN BEGINS. 



SCAN SUCCESSFUL. 

TRANSLATED OUTPUT (IF ANY) FOLLOWS. 

TERM NUMBER 2. 

BCDEFA IS THE CODED MESSAGE FOR ARCDEF 

END OF RUN. 

EXITM CALLED. GOODBYE. 

R 7.150 + li.983 
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resume thesis 
W 212 7. b 
INPUT CANONS. 

'x' -variaB- 
'y' -variab- 
'z' -variab- 
'1' -digit- 
'2 1 -digit- 
's' -digtt- 
d -digit- = d -integ- 
d -digit-, i -integ- = di -integ- 
i -integ- = i . ' cla ='12 -expres- 
v -variab- = v . ' cla 'v2 -expres- 

I -Integ-, x.y -expres- = i'+'x . y' add = '!2 -expres- 
WARNING- PARTIAL LEFT RECURSION IN LINE NUMBER 11 
v -variab-, x.y -expres- = v' + 'x . y' add ' v2 -expres- 
WARNING- PARTIAL LEFT RECURSION IN LINE NUMBER 12 
x.y -expres- = x2 . 'this Is the translation for, 'x22 

y 1 end'2 -exampl- 
end 

CONSISTENT SET OF CANONS. 

LIST OF DEFINED PREDICATES AND DEGREES. 

1. -VARIAB- 1 

2. - DIGIT- 1 

3. - INTEG- 1 

4. -EXPRES- 2 

5. -EXAMPL- 2 

INPUT OF SOURCE STRINGS. 
TYPE FINAL PREDICATE, 
exampl 

TYPE -N0NEED-, -NEED- OR -INPUT- FOR EACH TERM. 

TERM NUMBER 1 OF -EXAMPL- 
Input 

INPUT STRING. EXTRA CARRIAGE RETURN INDICATES END. 

x+123+y+321+z 



TERM NUMBER 2 OF -EXAM PL- 
need 

TYPE 0, 1 OR 2 FOR DEPTH OF COMMENTS. 



bCA.'j blgirs. 
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SCA.'I oUCCL:^;f: 
TRANSLATE'; O'J 
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resume thesis 
tf 2150.5 
INPUT CANONS. 

'x' -varlab- 
'y 1 -variab- 
' -varlab- 
l l' -digit- 
'2' -digit- 
's' -diglt- 
d -digit- = d -integ- 
d -digit-, i -tnteg- = di -Integ- 
I -Integ- = I . ' cla ='i2 -expres- 
v -varlab- = v . ' cla 'v2 -expres- 

1 -Integ-, x.y -expres- = i'+'x , y' add ='12 -exprss- 
WARNIMG- PARTIAL LEFT RECURSION IN LINE NUMBER 11 
v -varlab-, x.y -expres- = v'+'x . y 1 add 'v2 -expras- 
WARNING- PARTIAL LEFT RECURSION IN LINE NUMBER 12 
v -variab-, x.y -expres- = v'='x . y' sto ' v2 -assign- 
x.y -assign- = x2 . 'this Is the translation for 'x22 

y' end'2 -exampl- 
end 

CONSISTENT SET OF CANONS. 

LIST OF DEFINED PREDICATES AND DEGREES. 



1. 


-VARIAB- 


1 


2. 


- DIGIT- 


1 


3. 


- INTEG- 


1 


k. 


-EXPRES- 


2 


5. 


-ASSIGN- 


2 


t>. 


-EXAMPL- 


2 



INPUT OF SOURCE STRINGS. 
TYPE FINAL PREDICATE, 
exarnpl 



-53- 



TYPE -HONEED-, -NEED- OR -INPUT- FOR EACH TERM. 

TERM NUMBER 1 OF -EXAMPL- 
Input 

INPUT STRING. EXTRA CARRIAGE RETURN INDICATES END. 
y=x+123+y+3211+z 



TERM NUMBER 2 OF -EXAMPL- 
need 

TYPE 0, 1 OR 2 FOR DEPTH OF COMMENTS. 


SCAN BEGINS. 



SCAN SUCCESSFUL. 

TRANSLATED OUTPUT (IF ANY) FOLLOWS. 

TERN NUMBER 2. 

THIS IS THE TRANSLATION FOR Y=X+123+Y+3211+Z 

CLA Z 
ADD =3211 
ADD Y 
ADD =123 
ADD X 
STO Y 
END 

END OF RUN. 

EXITM CALLED. GOODBYE. 

R 18.866 + 8.1*00 
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resurne thesis 
W 220U.U 
INPUT CANONS. 

= 'this Is a test sentence'2 -exanipl- 
end 

CONSISTENT SET OF CANONS. 

LIST OF DEFINED PREDICATES AND DEGREES. 

1. -EXAMPL- 1 

INPUT OF SOURCE STRINGS. 
TYPE FINAL PREDICATE. 
exarnpl 

TYPE -N0NEED-, -NEED- OR -INPUT- FOR EACH TERM. 

TERM NUMBER 1 OF -EXAMPL- 
input 

INPUT STRING. EXTRA CARRIAGE RETURN INDICATES END. 
this Is not a test sentence 

TYPE 0, 1 OR 2 FOR DEPTH OF COMMENTS. 


SCAN BEGINS. 

SCAN FAILED. SYNTAX ERROR IN INPUT STRING(S). 
NO TRANSLATED OUTPUT. 

LAST CHARACTER INSPECTED IN TERM 1 WAS N IN MIDST OF FOLLOWING CONTEXT 

THIS IS NOT A TEST SENTE 

END OF RUN. 

EXITM CALLED. GOODBYE. 

R .383+2.766 
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Appendix 4. 
Program Listing. 

The program listing for the program which implements the canonic 
translation algorithm is contained in this appendix. The program may 
be divided into three parts: a preliminary phase which verifies the 
syntax of the canons typed in and assembles them into a SLIP list 
structure, the recursive scanning routine which forms the major part 
of the code, and a final routine which inspects and prints the 
results. Understanding the code requires a thorough comprehension 
of the SLIP system developed by Weizenbaum (7). The lack of elegance 
in the program is quite the fault of the author. 

The following table identifying the major parts of the code 
may prove useful. 

Label Lines Purpose of Code 

NEWORD 57-74 Inputs a line from the typewriter, feeds characters 
one at a time to the canon-analyzing routine. 
107-285 Reads predicate names and makes various checks 

(left recursion, degree same as before, etc.) and 
assembles into list structure. 
383-395 Identifies next variable to be encountered should 
be marked as the one to use if the variable is 
needed in the later phase. 
396-434 Inputs variable and assembles into SLIP structure. 
EVAL 444-472 Checks that all variables are defined. 
PUTIN 505-574 Assembles list structure for input to scan program 
at zero level. 
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LUPOOG 592 Beginning of recursive routine. It is to this point 

that the program returns when "pushing". 
603-617 Makes an "object time" check for left recursion. 
OUTCHK 621-671 Creates the 'needed 1 list of variables for which 

definitions must be found from other than the input 

string. 
LUP008 677-697 Handles multiple results, each of which must 

be analyzed in turn. 
717-855 Compares input string with conclusion, "pushing" 

to find definition of variables if necessary. 
PUSHIT 871-893 Saves state of program and returns to the beginning 

of the scan routine. 
PKMCHK 897-977 Checks premises of a canon. 
ASSMBL 981-1038 Assembles results of scan for next higher level 

before "popping". 
POP 1042-1075 Uncovers the state of the program and goes to 

appropriate return routine. 
P0P1 1080-1164 Analyzes return resulting from "push" during 

scan of conclusion. 
P0P2 1165-1196 Analyzes return resulting from "push" during 

check of premises. 
THKGOD 1200-1344 Outputs results of scan. 
HERAUS 1348rl350 Exit. 

1355-1381 Obtains character from input data area, using 

pointer furnished by caller. 



PKTLST 
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M5364 



5163 



THESIS 



MAD FOR M5364 



5163 



BEGINS 



LOOP1 
SKIP 



NEWPRM 



CANONIC TRANSLATION PROGRAM. 

THIS PROGRAM EMPLOYS A CANONIC SYSTEM AS A BASIS 
FOR RECOGNIZING DEFINED SETS OF STRINGS. THE 
FIRST PART OF THE PROGRAM VERIFIES THE SYNTAX OF 
THE CANONIC SYSTEM WHICH IS INPUT AND 
ASSEMDLES IT INTU A SLIP LIST STRUCTURE. 
THE SECOND PART OF THE PROGRAM OPERATES RECURSIVELY 
TO DETERMINE WHETHER A GIVEN STRING IS A MEMBER 
CF A DEFINED SET OF STRINGS, OR WHETHER THE GIVEN 
STRING IS ONE ELEMENT OF AN ORDERED N-TUPLE 
WHICH IS A MEMBER OF A DEFINED SET. IN THE LATTER 
CASE, THE OTHER ELEMENTS OF THE N-TUPLE MAY BE 
R CUTPUT AS TRANSLATIONS. 
R 

R - .. - „- .. 

N'S INTEGER 

ECOLEAN EQUAL, EOLIND, STRTND, ERRS, NOTTN, IN, SOMERC, ALLRC 
1 ,LEMPTY, INP, DOLIND 

DIMENSION BUFFER (141, INPUT (1000) 
R 

RIMTIALIZATION OF SLIP SYSTEM. 
R 

IMTAS. (0) - - 

LIST. (SYSTEM) 

LIST. (NAMES) ..._ - - - 

LINE = 

CEFNUM = j . . _ . 

R 

RIMTIALIZATION OF SYSTEM , 

R 

PRINT COMMENT SINPUT CANONS. S 

PRINT COMMENT t % 

T'O SKIP - - 

R 

RIMTIALIZATION PRIOR TO READING A CANON 

R 

IPALST. (VAR) 

IRALST. .(SVEVAR) 

DEF - LIST. (9) - 

LIST. (VAR) 

LIST. (SVEVAR) - - 

NEED = LIST. (9) 
DCLIND = QB 
CCND = 1 
ECUAL = OB 
ECLIND = IB 

PREM = LIST. (9) ........ 

TRMNUM = j 

TERM = LIST. (9) . 



NEWORD 
RDLINE 



RIKPJT OF CANONS, CHARACTER BY CHARACTER, RIGHT 

RACJUSTED IN WORD 

R - 

W'R .NOT. EOLIND, T'O GETW 

NUMB = RDFLXC. (BUFFER, 84) 
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LINE = LINE .+ 1 
ECLIND = JB 
PCS = 6 
I = -1 
STRTND = IB 
GETW W'R POS .GE. 6 
POS = 3 
1 = 1 + 1 
WORT = BUFFER ( I I 
E'L 

W'R NUMB .E. 0» T'O RDLINE 
NLMB = NUMB - 1 
W'R NUMB .E. 0. EDLIND = IB 
PCS = POS + 1 

WCRD = WORT .RS. 3D .V. i 0$ 

WCRT = WORT .LS. 6 
R 

RCHECK TO SEE IF READING ANSWER TO QUESTIONS. 
R 
W'R COND .E. 8 
T'O RDANS 
R 

RCHECK FOR REMARK AND END CARDS 
R 
C'R STRTND 

STRTND = OB 

W'R WDRD .E. $ *S, T'O RDLINE 
W'R BUFFER (0) .A. 777777000000K .E. $ENDDO0$ 
W'R COND .E. 1, T'O EVAL 
PRNTP. (ERRl) 

V'S ERR1 = SLAST CANON IS INCOMPLETES, 377777777777 
IK 

T'O ERR IN 
E'L 
E'L 
R 

RCHECK TO SEE IF READING 'LITERAL' OF TERMINAL CHARACTERS 
R 
W'R COND .E. 6 

W'R WORD .£. BREAK 

COND = 2 
O'E 

NEWBOT. (WORD, TERM) 

W'R EOLIND, NEWBOT. 1 60606060605 5K , TERM) 
E'L 

T'O NEWORD 
O'R WORD .E. $ I 
T'O NEWORD 
R 

RCHECK TO SEE IF READING PREDICATE 
R 
C'R COND .E. 7 

W'R WORD .NE. % -t 

LENGTH = LENGTH + 1 
W'R LENGTH .E. 7 

PRNTP. (ERR2) 

V'S ERR2 = *T00 MANY CHARACTERS IN PREDICATES 
1, 377777777777K 

T'O ERR IN 
E'L 
R 
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LQ0P3 



L00P4 



LOOP5 



RBUILD UP PREDICATE, CHARACTER BY CHARACTER 
R 

NAME = NAME .LS. 6 .V. WORD .A. 0Q00O000O077K 
T'O NEWDRO 
R 

RSAVE PREDICATE NAME JUST READ IN 
R 

O'E 

EQUIV = ITSVAL. (NAME, NAMES) 
W'R EQUIV .E. . - - 

DEFNUM = DEFNUM + 1 
EQUIV = DEFNUM .V. TRMNUM .LS. 18 
NEWVAL. (NAME, EQUIV, NAMES) 
E'L .. . 

CHKNUM - EQUIV .RS. 18 
EQUIV = EQUIV .A. 777777K 
R 

RCHECK DEGREE OF PREDICATE 
R 

W'R TRMNUM .NE. CHKNUM 

P*T ERR15, NAME, LINE 

V'S ERR15 = SH'DEGREE OF PREDICATE -«,C6, 
1H'- IN LINE NUMBER', 13, H" NOT AS PREVIOUSLY DEFINED«*$ 
T'O ZAPALL 
E'L 
R 
RIF CONCLUSION, MAKE VARIOUS CHECKS AND ADD CANON TO SYSTEM 

R -- - - - .. _ 

W'R EQUAL 

R -- .. . . . .. _ 

RCHECK FOR LEFT RECURSION 

R . _ .. 

LRECUR = SEQROR.(DEF) 

- -CHKPRM = SEQLR. (LRECUR, F) - - 

W'R F .G. 3, T'O CHKILL 
■--- PRMPRM = TDP. (LSTNAM. (CHKPRM)) 

1 .A. 777777K 

SrfiR PRMPRM .NE. EQUIV, T'O L00P3 

CHECKC - SEQRDR. (PREM) 

-CHECKP = SEQROR. (CHKPRM) 

SOMERC = QB 

ALLRC = IB 

TERMP = SEQLR. (CHECKP, Fl 

TERMC = SEQLR. (CHECKC, G) 

W'R F .G. .OR. G .G. 

W'R SOMERC .AND. ALLRC 

PRNTP. (ERR11) 

V'S ERRll = ^COMPLETE LEFT RECURSION 

1$, 377777777777K 

T'O ERR IN 

O'R SOMERC 

r p»T ERR12, LINE 

V'S ERR12 ? SH'WARNING- PARTIAL LEFT 
I RECURSION IN L TNE NUMBER', 13*$ 
E'L 

T'O L00P3 
E'L 

TERM1 = SEQRDR. (TERMP) 

TERM2 = SEQRDR. (TERMC) 

PPPREM = SEQLR. (TERM!, F) 

CONCLU = SEQLR. (TERM2, G) 
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H'R F .G. 3 .DR. G .G. 0, T'O LO0P4 
W'R F .L. .AND. G .L. 

W'R PPPREM .E. CONCLU, T'O LOOP5 
■- O'R F .£. 3 .AND. G .E. 

W'R TOP. (LSTNAM. (CONCLUI) .E. 
1 CHKPRM .AND. PPPREM .E. CONCLU 

SOMERC = IB 

- - T'O LOOP* 

E'L 

- — E'L - - . 

ALLRC = vB 
T'O LO0P4 
R 

RCHECK FOR ILLEGAL VARIABLE CONSTRUCT ION t I.E. 
RA PREMISE TERM WITH MORE THAN A VARIABLE. 
R 
CHKILL READP = SEQRDR. (DEF) 

ADVANP PREHP = SEQLR. (READP. F) 

W'R F .G. 0, T'O NOUSE 

READT = SEQRDR. (PREMP) 

ADVANT TERMP = SEQLR. (READT, F) 

--- W'R F .G. 0, T'O ADVANP 

NOT IN = OB 

IN = OB 

VARCNT =■ 

READV * SEQRDR. (TERMP) ... 

ADVANV VARIAB = SEQLR. (READV, F) 

W'R F .G. D _ 

W'R VARCNT .G. 1 

■-GOOF j 1 PRNTP. (ERR16) 

V'S ERR16 * SVARIABLE NOT ISOLATED* 
It 377777777777K 

T'O ERRIN 

- O'R VARCNT .L. 1 

PRNTP. (ERR22) 

V'S ERR22 => 4TERM WITHOUT VARIABLES 

t , 377777777777K 

- -T'O ERRIN 

E'L 

- - - -T'O ADVANT _., 

E'L 

W'R F .L. 0» T'O GOOF01 

VARIAB = TOP. (VARIAB) 

VARCNT = VARCNT + 1 

READC = SEQRDR. ( SVEVAR ) 

-L00P6 TERMV = SEQLR. (READC. F) 

W'R F .G. 

NOT IN = IB 

READL - SEQRDR. (NEED) 

AOVANL TERML = SEQLR. (READL, F) 

W'R F .G. 1 

- -- ■- NEWBOT. (VARIAB, NEED) 

P'T NOTTY, VARIAB 

V'S NOTTY = $H'NEEO »,C6»* 

T'O ADVANV 

O'R VARIAB .A. 7777777777K .E. TERML .A. 

1 7777777777K 

..._ .... SUBST. (VARIAB .V. 77K10, SEQPTR. 

1 (READL)) 

- T'O ADVANV 

E'L 
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T'O ADVANL 
O'R TERMV .E. VARIAB 
rN = IB 
T'O ADVANV 
E'L 

T'O L00P6 

R 

RCHECK FOR UNUSED VARIABLE (ONE WHICH OCCURS ONLY ONCE 
RIN CANON) 
R 
NOUSE READL = SEQROR. (NEED) 

ADVANN TERML * SEQLR. (READL, F) 

W'R F .G. Oi T'O ADDCAN 

W'R TERML .A. 77K10 .E. 77K10 

TERML ■» TERML .A. 607777777777K 
T'O ADVANN 
E'L 

P'T ERR17, TERML, LINE 

V'S ERR17 = SH'WARNING- VARIABLE *,RC1, 

.._.... IH' IN LINE NUMBER' , 13, H' UNUSED'»$ 

DELETE. (SEQPTR. (READL)) 

- . T'O ADVANN 

ADDCAN MAKEDL. (PREM, DEF) 

_ MAKEDL. (NEED, PREM) 

EQU = ITSVAL. (EQUIV, SYSTEM) 

- W'R EQU .E. 

EQU = LIST. (9) 

NEWVAL. (EQUIV, EQU, SYSTEM) 

E'L 

--_.-- NEWBOT. (DEF, EQU) 

COND « 1 

T'O LOOP1 

R 

RIF NOT CONCLUSION, SAVE PREMISE AND PREMISE PREDICATE 

R 

- O'E 

NEWBOT. (PREM, DEF) 

- TEMP = LIST. (91 

MAKEDL. (TEMP. PREM) 

__ _„_...- NEWBOT. (EQUIV .V. TRMNUM .LS. 18, TEMP) 

COND = 3 

, . T'O NEWPRM 

. E'L 

...- - E'L - --■ 

R 

RCHECK FOR BREAK BETWEEN TERMS 

R 
- C'R WORD .E. % .* 

W'R COND .NE. 2 

PRNTP. (ERR3) 

V'S ERR3 = iMISPLACED PERIOD*, 377777777777K 

.. _ _ T'O ERRIN - 

O'E 

_ NEWBOT. (TERM, PREM) 

TRMNUM = TRMNUM ♦ 1 
COND =4 
T'O NEWTRM 
E'L 



RCHECK FOR BEGINNING OF NAME 
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R 

C'R WORD .E. S -$ 
W'R COND .NE. 2 

PRNTP. (ERR4) 

V'S ERR4 = SMISPLACED HYPHENS, 377777777777K 

T'O ERRIN 



O'E 



E'L 



COND = 7 ._...-.. 

LENGTH = 

NAME = S $ 

NEWBOT. (TERM, PREM) 

TRMNUM = TRMNUM + 1 

T'O NEWORD 



R 

RCHECK FOR BEGINNING OF TERMINAL CHARACTER 'LITERAL' 
R 
C'R WORD .E. S •$ .OR. WORD .E. S •$ .OR. WORD .E. 

l i /s 

W'R COND .E. 3 

P'T ERR13, WORD, LINE 

V'S ERR10 = SH. MISPLACED '.,RC1,H. « IN LINE NUMBER. 

1,I3*S 

- T'O ZAPALL 
O'E 

■- BREAK = WORD 

COND = 6 

■ ■-- — T'O NEWORD -- 

E'L 

R - - — .. -■- - - - - 

RCHECK FOR COMMA AFTER PREDICATE 

■ R -- 

C'R WORD .E. $ ,S 

-W'R COND .NE. 3 -■ - -- 

PRNTP. (ERR5) 

V'S ERR5 = SMISPLACED COMMAS, 377777777777K 

T'O ERRIN 

- O'E- - -..- - ■ .- 

COND = W 

T'O NEWORD - - - 

E'L 

R ... - 

RCHECK FOR EQUALS, BEGINNING OF CONCLUSION 

C'R WORD .E. S = S 

W'R COND .NE. 3 .AND. COND .NE. 1 

PRNTP. (ERR6) 

..... V'S ERR6 = SMISPLACED EQUALS SIGNS, 377777777777K 

T'O ERRIN 

O'E - - - 

EQUAL = IB 

COND = 4 - _ — - - -. 

T'O NEWORD 
E'L 
R 

RCHECK FDR TAB 
R 
C'R WORD .E. S IS 

W'R COND .E. 3 
. PRNTP. ( ERR13) 

V'S ERR13 = SMISPLACED TABS, 377777777777K 
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T'O ERRIN 

- - O'E ■ '" " " 

NEWBOT. (606060606C72K, TERM! 

COND = 2 - -■ " 

T'O NEWQRD 

R 

RCHECK FOR CARRIAGE RETURN 

R 

G'R WORD .E. i ■■ 2i 

W'R COND .E. 3 

PRNTP. IERR14) ,,„,-,, 

VS ERR14 - SMISPLACED CARRIAGE RETURNS, 3777777777 



177K 
O'E 



T'O ERRIN 



NEWBOT. (6O6060606O55K, TERM) 

-COND * 2 

T'O NEWORD 

_ E'L """" 

RCHECK FOR S. INDICATES VARIABLE NEXT ENCOUNTERED 

R SHOULD BE MARKED FOR NEED. 

C'R WORD .E. 60606D606053K 

W'R COND .E. 3 .OR. EQUAL — 

PRNTP. (ERR25) ,„„ 

_.. VS ERR25 * SMISPLACED DOLLAR SIGNS, 377777777777K 

T'O ERRIN 

O'E 

DOLIND - IB 

. T'O NEWORD 

E'L 

RASSUME CHARACTER IS VARIABLE 

C'E 

W'R COND .E. 3 - 

PRNTP. (ERR7) 

VS ERR7 = SMISPLACED VARIABLES, 377777777777K 

T'O ERRIN 

O'E 

, COND * 2 

VARIAB * ITSVAL. (WORD, VARJ 

W'R EQUAL 

^ W'R VARIAB .E. — 

PRNTP. (ERRS) 
VS ERR8 - SUNDEFINED VARIABLES, 37777777 



17777K 



O'E 



T'O ERRIN 

E'L 

NEWBOT. (VARIAB, TERM) - 

NEWBOT. 1WORO, SVEVAR) 

W'R VARIAB .E. 

- VARIAB * LIST. (9) 
TEMP = LIST. 19) 

— - MAKEDL. (TEMP, VARIAB) 

NEWBOT. (WORD, VARIAB) 
NEWVAL. (WORO, VARIAB, VAR I 
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ONLYON 



ERRIN 
ZAPALL 



EVAL 



LOQP2 



TYPOUT 



FNONfIB 
SPCNMB 



0«R OOLIND 

POPTOP. (LSTNAM. (VARIABI) 
O'E 

T'O ONLYON 
E»L 

NEWBOT. (PREM, LSTNAM. IVARIAB)) 
NEWBOT. IVARIAB, TERM) 
DOLIND = OB 



E«L 

T'O NEWORO 



E'L 



E'L 
R 

RIN CASE OF ERROR, CANON IS ERASED AND MAY BE RECONSTRUCTED 
R 
P'T ERR, LINE 

V'S ERR = $H" IN LINE NUMBER', I3»t 
1RALST. (TERM) 
IRALST. (PREM) 
IRALST. (DEE) 
T'O LOOP1 
R 

RVARIOUS ERRCR CHECKS FOLLOW 
R 

RCHECK TO SEE IF ALL NAMES ARE DEFINED 
R 
ERRS » OB 

DLIST = LSTNAM. (NAMES) 
SEQCHK = SEGRDR. (DLIST) 
NAME = SEQLR. (SEQCHK, F) 

DEFNUM = SEQLR. (SEQCHK, TEMP) .A. 777777K 
W'R F .G. 'J . . - 

W'R ERRS 

PRNTP. (COMM2) 

V'S COMM2 = $PLEASE DEFINE ABOVE PREDICATES. $ , 7777 
177777777K 

T'O LOOP1 
E'L 

PRINT COMMENT $ $ 
PRNTP. (CQMM1) 

V'S COMM1 = ^CONSISTENT SET OF CANONS. S, 777777777777K 
T'O TYPOUT 
E'L 

OEFCHK = ITSVAL. IOEFNUM, SYSTEM) 
fc'R OEFCHK .E. 
ERRS = IB 
P'T ERR9, NAME 

V'S ERR9 = $C6, H' UNDEFINED"** 
E'L 

T'O L00P2 
R 

RPRINT LIST OF PREDICATES. 
R 
PRINT COMMENT $ $ 

PRINT COMMENT SLIST OF DEFINEO PREDICATES AND DEGREES.* 
PRINT COMMENT t $ 
I = 
1 = 1*1 

SEQCHK = SEORDR. (LSTNAM. (NAMES)) 
NAME = SEQLR. (SEQCHK, F) 
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DEFNUM = SEQLR. (SEQCHK, G) 
PRMNUM = DEFNUM .RS. 18 
DEFNUM = DEFNUM .A. 777777K 
W*R F .G. 0, T'O PUTIN 
W'R DEFNUM .E. I 

P'T NOTEi, I, NAME, PRMNUM 
V'S N0TE3 = $13, H'. - « , C6 , H ■ - ' , I 4»$ 
T'O FNDNMH 
E'L 

T'O SPCNMR 
R 

RIfsPUT OF SOURCE STRINGS AMD 'NEED' FLAGS. 
RA POINTER TO THE INPUT STRING IS USED IN 
RTHE LIST, RATHER THAN THE INPUT ITSELF. 
RTF'E ADDRESS PORTION OF THE WORD CONTAINS THE 
RNUMGER OF THE LAST CHARACTER INPUTTED 
RAND THE DECREMENT CONTAINS THE NUMBER OF 
RTKE FIRST. THOSE PARTS OF THE STRINGS 
RDERIVED FROM THE CANONIC DEFINITIONS 
RARE LEFT AS SINGLE CHARACTERS IN A SLIP 
RCELL. 
R 
PUTIN LIST. (MAXINP) 
IRALST. (NAMES! 
PRINT COMMENT $ $ 

PRINT COMMENT SINPUT OF SOURCE STR I NGS . t 
RETRY PRINT COMMENT STYPE FINAL PREDICATE. $ 
READIN. (NAME) 

ECUIV = ITSVAL. (NAME, NAMES) 
CHKNUM = EQUIV .RS. 18 
ECUIV = EQUIV .A. 777777K 
W'R EQUIV . E. 

P'T COMM4, NAME 

V'S COMM4 = $H'-',C6,H«- NOT FOUND'** 
T'O RETRY 
E'L 

LIST. (SEARCH! 
I\P = JB 
LNECNT - J 
PRIiNT COMMENT $ $ 
PRINT COMMENT STYPE -NQNEEO-, -NEED- OR -INPUT- FOR EACH TERM 

l.i 

THROUGH READY, FOR TRMNUM = 1, I, TRM.MUM -G. CHKNUM 
PRINT COMMENT * $ 
P'T COMM3, TRMNUM, NAME 

V'S COMM3 = SH'TERM NUMBER ' , I 2 , H • OF -',C6,H'-*#$ 
READIN. (ANSWER) 
• W'R ANSWER .E. $ NEEDS 

NEW80T. (SNEEOS, SEARCH) 

T'O READY 
O'R ANSWER .E. tNONEEDS 

NEWBOT. (SPLEASES, SEARCH) 

T'O READY 
O'R ANSWER .E. t INPUT! 

INP = IS 

PRINT COMMENT $ $ 

PRINT COMMENT tINPUT STRING. EXTRA CARRIAGE RETURN 
INDICATES END.* 

PRINT COMMENT * $ 

SAVi = (LNECNT » 6 + 1! .LS. 18 

TEMP = L 1ST. (9) 
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CHKR = SEQRCR. (STACKB) 


RECURR 


CFKl = SEQLR. ICHKR, F) 




OK2 = SEQLR. (CHKR, TEMP) 




W'R F .G. 3, T'O OUTCHK 



OUTCHK 



LUPO 3 



LUPO. -5 



PRTNED 



LUPO 4 



LUPO 6 



LUPOl J 



W'R CHK1 .NE. DEFINE, T'O RECURR 
W'R LSTEQL. (SEARCH, CHK2) .E. 

W'R SWITCH .G. 

PRINT COMMENT $LEFT RECURSION DETECTED. * 

E'L 

T'O LUPOU2 
E'L 

T'O RECURR 
R 

RCEVELOPE 'NEED' LIST. 
R 
F IND = LSSCPY. (SEARCH) 
TEMPI = LIST. (9) 
NAKEDL. (TEMPI, FIND) 
NEWTOP. (SEQRDR. (FIND), TEMPI) 
TEMP = LSTNAM. (DEFINE) 
NEED = LSSCPY. (LSTNAM. (TEMP)) 
PREM = SEQRDR. (TEMP) 
LCOK = SEQRCR. (FIND) 
LIST. (NONEED) 
PRMISE = SEQLR. (PREM, F) 
W'R F .G. 0, T'O PRTNED 
SEE = SEQLR. (LOOK, F) 
FNDTRM = SEQRDR. (PRMISE) 
VARIAB = SEQLR. (FNDTRM, G) 
W'R G ,G. 0, T'O LUPOJ3 
W'R G .E. 

VARIAB = TOP. (VARIAB) 

W'R SEE .E. SNEEDS 

NEWBOT. (VARIAB, NEED) 

O'R F .E. 

NEWBOT. (VARIAB, NONEED) 



E'L 



E'L 
T'O 

W'R 



LUPJ05 

LEMPTY. (NONEED), T'O LUPJ06 
TEMPI = POPTOP. (NONEED) 
FNDTRM = SEQRDR. (NEED) 
VARIAB = SECLR. (FNDTRM, F) 
W'R F .G. D, T'O PRTNED 
W'R VARIAB .NE. TEMPI, T'O LUPOCH 
DELETE. (SECPTR. (FNDTRM)) 
T'O LUPJ04 
IRALST. (NONEED) 
W'R SWITCH .LE. 1, T'O STRTSC 
TEMPI = SEQRDR. (NEED) 
TEMP2 = SEQLR. (TEMPI, F) 
W'R F .G. 0, T'O STRTSC 
P'T NOTEJ, TEMP2 

V'S NOTEJ = $H'NEED ',RC1,H«.'«S 
T'O LUP010 



STRTSC 



RGET CONCLUSION OF CANON. 

R 
NEWBOT. (FIND, STACK2I 
h'R SWITCH .G. 4, PRTLST. 



($NEED$, NEED) 



69 



CCNCL = SEQRDR. (TEMP) 
LUPQ,7 TERM = SEQLR. (CONCL, F) 
W'R F .G. D, T'O PRMCHK 
ECLIND = IB 
IN - DB 
INP = DB 
R 

RGET NEXT TERM OF CONCLUSION. 
R 
PIECE = SEQRDR. (TERM) 
T'O LUPjll 
LUPO...B W'R IN, T'O GETINA 
LUPO 9 IN = OB 

W'R LEMPTY. (STACK1) 

W'R INP, T'O LUP007 
EOLIND = OB 
LUPOll CHAR = SEQLR. (PIECE, GJ 

W'R G .G. 

W'R EOLIND 

INP = IB 



O'E 
E'L 



T'O LUP007 



E'L 



R 

RCHECK TO SEE IF SCAN HAS FAILED. 

R 

W'R LEMPTY. (STACK2), T'O LUPjOl 
TEMP =. STACK1 
STACK1 = STACK2 
STACK2 = TEMP 
E'L 

FIND = POPTCP. ISTACKl) 
SEE = LSTNAM. (FIND) 
READS = POPTOP. (SEE) 
W'R EDLINO 

SEQLR. (READS, Fl 
W'R F .L. .OR. INP 

NEWTOP. (READS, SEE) 
NEWBOT. (FIND, STACK2) 
INP = IB 
T'O LUPD09 

E'L 

TEMP = CONT. (SEQPTR. (READS) ♦ 1) 
HCLDP = TOP. (TEMP) 
HCLDT = BOT. (TEMP) 
W'R G .L. : 
R 

RTERMINAL CHARACTER IN CONCLUSION. CHECK STRING. 
R 
LUP015 W'R LEMPTY. (HOLDT), T'O NGOOD 

WORD = POPTOP. (HDLDT) 
STRTND = OB 
W'R WORD .L. 

W'R CHAR .£. WORD 

NEWBOT, (WORD, HOLDP) 
NEWBOT. (FIND, STACK2J 
NEWTOP. (READS, SEE) 
T'O LUPCJ8 



O'E 



E'L 
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T'O NGOOD 



O'E 



LUP019 



TRAOVR 
SKPOVR 



JMPQVR 



OBJECT = CHARAC. (WORD) 
W'R OBJECT .E. CHAR 

TEMPI = WORD .A. 777777K6 

W'R LEMPTY. (HOLDPJ, T'O TRAOVR 

TEMP = POPBOT. (HOLDP) 

W'R TEMP .G. .AND. ITEMP .A. 777777K) 
1 .E. (WORD .RS. 18) - 1. T'O SKPOVR 

NEWBOT. ITEMP, HOLOP ) 

TEMP = TEMPI .V. (WORD .RS. 18) - 1 

TEMP = TEMP + 1 

NEWBOT. (TEMP, HOLDP) 

W'R TEMPI .GE. WORD .IS. 18, T'O JMPOVR 

WORD = WORD + 1K6 

NEWTOP. (WORD, HOLDT) 

W'R STRTND, T'O LUP315 

NEWBOT. (FIND, STACK2) 

NEWTOP. (READS, SEE) 

T'O LUP0J8 
O'R OBJECT .E. $O0NULL$ 

STRTND = IB 

T'O LUP019 
O'R OBJECT .E. $OOOEND$ 

T'O LUP315 
O'E 



NGOOD 



IRALST. (FIND) 


W'R 


IN 




CHAR = SAVECH 


_. , 


- G = SAVEG 


E'L 




T'O 


LUP009 



E'L 



E'L 



LUP02 1 



LUP023 



LUPQ27 



RVARIABLE IN CONCLUSION. 

RCHECK TO SEE IF VARIABLE PREVIOUSLY DEFINED. 

R -■ "- 

C'E 

.. VARIAB = TOP. (CHAR) 

DUST * ITSVAL. (VARIAB, FIND) 
.,- W'R DLIST .NE. 

SAVECH = CHAR 

SAVEG = G 

IN - IB 

G = -1 

OUST = SEQRDR. (DLIST) 
CHAR = SEQLR. (DLIST, F) 
W'R F .G. 0, T'O GETOUT 

....- W'R CHAR .L. Of T'O LUPJ27 

I = CHAR 

CHAR = CHARAC. (I) 

I = I + 1K6 

W'R CHAR .E. SODOEND*, T'O LUP021 

W'R CHAR .E. SOONULLS, T'O LUP023 

ALLRC = IB 

T'O LUP315 

ALLRC = ClB 
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T'O LUPJ15 
GETINA FIND = POPBQT. (STACK2) 

READS = POPTQP. (SEE) 
W'R ALLRC, T'O LUP023 
T'O LUPD21 
GETOUT CHAR = SAVECH 

G = SAVEG 

NEWBOT. tFINDt STACK2) 
NEWTOP. (READS, SEE) 
T'O LUP009 
E'L 
R 

RVARIABLE IS NOT YET DEFINED, SO PROGRAM 
R KUST SEARCH RECURSIVELY. SELECT PREMISE WITH WHICH 
R TO SEARCH FOR VARIABLE. 
R 

PRPNTR = TOP. (LSTNAM. (CHAR) I 

PRMNUM - TOP. (LSTNAM. (PRPNTR)) .A. 777777K 
R 

RCHECK OTHER TERMS (AND VARIABLES) IN CHOSEN PREMISE. 
R 

LIST. [PUSHES) 
REMPTR = SEQRDR. (PRPNTR) 
LUP03L TERM = SEQLR. IREMPTR, F) 

W'R F .G. 0, T'O PUSH1 
TEMP = TOP. ITERM) 
ZIEL « TOP. ITEMP) 
R 

RINSERT STRING FOR VARIABLE PRESENTLY SOUGHT. 
R 

W'R ZIEL .E. VARIAB 

TEMP = LIST. (9) 
NEWBOT, ITEMP, PUSHES) 

.- TEMP2 = LIST. (9) 

NEWBOT. (TEMP2, TEMP) 
TEMPI = LSSCPY. (HOLDT) 
NEWBOT. (TEMPI, TEMP) 
ABANDN. (TEMPI) 
O'E 
■R 

RSEE IF OTHER VARIABLES PREVIOUSLY DEFINED. 
R 

. IS1TDF = ITSVAL. (ZIEL, SEE) 
- . . W'R 1SITDF .NE. 

TEMPI = LSSCPY. MSITDF) 

TEMP2 = LIST. (9) 

TEMP = LIST. (9) 
NEWBOT. (TEMP2, TEMPI 
NEWBOT. (TEMPI, TEMPI 
ABANDN. (TEMPI) 
NEWBOT. (TEMP, PUSHES) 

- □'£ 

R 

RDECIDE WHETHER TO FLAG AS 'NEED' OR 'PLEASE'. 

R 

W'R PRPNTR .NE. TOP. (LSTNAM. (TEMP)), 
1 T'O LUP037 

NOPTR = SEQRDR. (NEED) 
LUP035 CKNEED = SEQLR. (NDPTR, F) 

- - W'R F .G. 
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LUP037 



PUSH1 



PUSH2 



PUSH IT 



PRMCH 
LUP05 



NEWBOT. t$PLEASE$, PUSHES! 

O'R ZIEL .E. CKNEED 

NEWBOT. I1NEEDS, PUSHES) 
O'E 



E'L 



T'O LUPQ35 



E'L 

E'L 

T'D LUP031 



E'L 



REFORMATION FOR RECURSION ASSEMBLED, SO SAVE STUFF 
RFCR THE PUSH. 
R 
SCMERC = 08 
W'R SWITCH .G. 1 

P'T N0TE1. PRMNUM 

V'S N0TE1 = $H'SCAN PUSH F0R«,I3*$ 
E'L 

T'O PUSHIT 
SCMERC = IB 
W'R SWITCH .G. 1 

P'T NOTEA, PRMNUM 

V'S NOTEA = IH'PREMISE PUSH F0R',I3»S 
E'L 

NEWTOP. (DEF, STACKAI 
NEWTOP. (EQUIV, STACKAI 
NEWTOP. (NEED, STACKAI 
NEWTOP. (SEARCH, STACKBI 
NEWTOP. (DEFINE, STACKBI 
NEWTOP. (STACKlt STACKAI 
NEWTOP. (STACK2, STACKA) 
NEWTOP. (CONCL, STACKA) 
NEWTOP. (PIECE, STACKA) 
NEWTOP. (FIND, STACKA) 
NEWTOP. (SEE, STACKA) 
NEWTOP. (READS, STACKA) 
NEWTOP. (HOLDP, STACKA) 
NEWTOP. (HOLDT, STACKA) 
NEWTOP. (CHAR, STACKA) 
NEWTOP. (VARIAB, STACKAI 
NEWTOP. (PRPNTR., STACKA) 
NEWTOP. ,( ANSWER, STACKA) 
NEWTOP. ISOMERC, STACKA) 
NEWTOP. (EOLIND, STACKAI 
ECUIV = PRMNUM 
SEARCH = PUSHES 
T'O LUPOOJ 
R 

RCHECK WHETHER PREMISE CONDITIONS ARE SATISFIEO. 
R 
PIECE - SEQRDR. (DEFINE) 
W'R LEMPTY. (STACK1) 

W'R LEMPTY. (STACK2), T'O LUPOQ1 

PRPNTR = SEQLR. (PIECE, F) 

W'R F .G. 0, T'O ASSM8L 

TEMP = STACK1 

STACK1 = STACK2 

STACK2 = TEMP 
E'L 
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FIND = POPTOP. (STACK1I 
SEE = LSTNAM. (FIND) 
READS = POPTOP. (SEE) 

PRMNUM = TOP. (LSTNAM. (PRPNTR)) .A. 777777K 
CLIST = ITSVAL. (PRPNTR .A. 77777K, FIND) 
R 

RPREMISE HAS NOT BEEN PREVIOUSLY VERIFIED WHILE 
RSEARCHING CONCLUSION. 
R 
W'R DLIST .E. 

LIST. (PUSHES) 
TERM = SEORDR. (PRPNTR) 
LUP053 TOPS = SEQLR. (TERM, F) 

W'R F .G. 0, T "0 PUSH2 
TOPS = TOP. (TOP. (TOPS)) 
DLIST = ITSVAL. (TOPS, FIND) 
W'R DLIST .E. D 
R 
RVARIABLC NOT YET DEFINED. INSERT 'NEED' 



R 



lK.-»$ 



NEWBOT. l$NEED$, PUSHES! 
W'R SWITCH ,G. a 

P'T NOTED 

V'S NOTED = $H-'NEED' REQUEST IN PREMISE CHEC 



E'L 

T'O LUP053 
E'L 

TEMPI = LIST. (9) 
NEWBOT. (TEMPI, PUSHES) 
TEMP2 = LIST. (9) 
NEWBOT. (TEMP2, TEMPI) 
TEMP2 = LSSCPY. (DLIST) 

NEWBOT. (TEMP2, TEMPI) 

ABANDN. (TEMP2) 

T'O LUP0 53 

C'E 
R 

RPREMISE HAS BEEN PREVIOUSLY GENERATED IN SCAN 
RCF CONCLUSION. 
R 

SOMERC = O.B 

PUSHES = LSSCPY. (DLIST) 

TERM = SEQRDR. (PUSHES) _ 

TEMP = SEQRDR. (PRPNTR) 
LUP057 TOPS = SEQLR. (TERM, F) 

TEMP3 = SEQLR. (TEMP, HI 
W'R F .G. 

W'R SOMERC, T'O PUSH2 
IRALST. (PUSHES) 
NEWTOP. (READS, SEE) 

NEWBOT. (FIND, STACK2) 

T'O LUP051 
O'R F .L. 

SOMERC = IB 

TEMP3 - TOP. (TOP. (TEMP3J) 
DLIST = ITSVAL. (TEMP3, FIND) 
W'R DLIST .E. 
P'T NOTED 
SUBST. (tNEEDS, SEQPTR. (TERM)) 
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T'O LUPi57 
E'L 

TEMPI = LIST. (91 
SUBST. (TEMPI, SEQPTR. (TERM) J 
TEMP2 = LIST. (9) 
NEWBOT. (TEMP2, TEMPI) 
TEMP2 = LSSCPY. (DLIST) 
NEWBOT. (TEMP2, TEMPI) 
ABANDN. 1TEMP2) 
E'L 

T'O LUP0 57 
E'L 
R 

RASSEM8LE CONCLUSION TO BE TRANSMITTED UPSTAIRS 
R 
ASSMBL W'R LEMPTY. (STACK2), T'O LUP0O1 
FIND = POPTOP. (STACK2) 
READS = POPTOP. ILSTNAM. (FIND)) 
TERM - SEQRDR. (FIND) 
PREM = SEQRDR. (LSTNAM. (DEFINE)) 
LUP067 TCPS = SEQLR. (TERM, G) 
CCNCL = SEQLR. (PREM, F) 
R 

RASSEMBLED, ADD TO ANSWER AND RETURN. 
R 
. . W • R F . G . 

NODLST. (FIND) 
NEWBOT. (FIND, ANSWER) 
T'O ASSMBL 
R 

RIF TERM SCANNED, SKIP IT. 
R 
G'R G .E. 

T'O LUP067 
R 

RIF NEED OR PLEASE, ASSEMBLE. 
R 
O'R G .L. 

SOMERC = OB 
TEMP = LIST. (9) 
TEMPI = SEQRDR. (CONCLJ 
LUP071 TEMP2 = SEQLR. (TEMPI, F) 

W'FJ F .G. 3 

W'R SOMERC .OR. TOPS .E. $N£EDS 
TEMPI = LIST. (9) 

SUBST. (TEMPI, SEQPTR. (TERM)) 

NEWBOT. (TEMP, TEMPI) 
TEMP2 = LIST. (9) 
NEWBOT. (TEMP2, TEMPI) 
O'E 

IRALST. (TEMP) 
....... E'L 

T'O LUP367 
O'R F .E. 

SOMERC = IB 

DLIST = TOP. (TEMP2) 

ANTWRT = ITSVAL. (DLIST, FIND) 

W'R ANTWRT .E. 

W'R TOPS .E. SNEEDt 

PRINT COMMENT i'NEED' ERROR. $ 
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POP 





E' 


L 






IRALST. (FIND) 




T' 


ASSMSL 






E'L 








TEMP3 = 


= LSSCPY. 


( ANTWRT ) 




INLSTR, 


, (TEMP3, 


(CONT. (TEMP .A. 


1 77777KM .RS. 18) 






IRALST, 


, (TEMP3) 




0' 


R F .L. 








NEWBOT, 


, (TEMP2, 


TEMP ) 


E' 


L 






T' 


LUP071 






E'L 

R 








RPCP-UP 
R 
W'R SW1 


RDUT INE 






:tch .g. 2 






PRTLST. (SANSWERI, ANSWER) 


E'L 








[RALST, 


. (STACK1) 






IRALST. 


. (STACK2) 






W'R LEMPTY. (STACKA), T'O 


THKGOD 


IRALST, 


. (SEARCH) 






RTRM1 = 


= ANSWER 






ECLINO 


= POPTOP. 


( STACKA) 


.E. 1 


SCMERC 


= POPTOP. 


( STACKA) 


.E. 1 


ANSWER 


= POPTOP. 


(STACKA) 




PRPNTR 


= POPTOP. 


(STACKA) 




VARI AB 


= POPTOP. 


(STACKA) 




CHAR = 


POPTOP. (STACKA) 




HCLDT = 


= POPTOP. 


(STACKA) 





HCLDP = POPTOP. (STACKA) 
READS = POPTOP. (STACKA) 
SEE = POPTOP. (STACKA) 
FIND = POPTCP. (STACKA) 
PIECE = POPTOP. (STACKA) 
CCNCL = POPTOP. (STACKA) 
STACK2 = POPTOP. ISTACKA) 
STACK1 = POPTOP. ISTACKA) 
DEFINE = POPTOP. (STACKB) 
SEARCH = POPTOP. (STACKS) 
NEED = POPTCP. (STACKA) 
ECUIV = .POPTOP. (STACKA) 
DEF = POPTOP. (STACKA) 
G = 
h'R SWITCH .G. 1 

P'T N0TE2, EQUIV 

V'S N0TE2 = SH'POP BACK TO • , I 3, H ' . ' • % 
E'L 

W'R SOMERC, T'O P0P2 
R 

RRETURN TO SCAN OF CONCLUSION AFTER PUSHING 
RFCR DEFINITION OF A VARIABLE. 
R 
P0P1 W'R LEMPTY. (RTRN1) 
IRALST. (RTRN1) 
IRALST. (FIND) 
INP = OB 
W'R SWITCH .L. 4, T'O LUP009 
PRTLST. (SSTACKlt, STACK1I 



LUP079 



LUP080 



LUP081 
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PRTLST. USTACK2S, STACK2) 

T'O LUPG09 
E'L 

Ff\DCPY = LSSCPY. (FIND) 
TEMP = SEQRDR. (FIND) 
TEMP3 = SEQRDR. (FNDCPY) 
TEMPI = SEQLR. (TEMP, F) 
TEMP2 = SEQLR. (TEMP3, H) 
W'R F .G. 

T'O LUP080 



O'E 



W'R TE^P .E. READS 

CPYHDP = TOP. (TEMP2I 
CPYRDS = TEMP3 

LINKS = CONT. (TEMP2 .A. 77777K) .RS. 1? 
E'L 

T'O LUP079 
E'L 
R 

RSAVE THE RETURN ANSWER, AND DEFINE VARIABLES 
RA!\D PREDICATES AS GIVEN FROM PUSH. 
R 
TEMPI = POPTOP. (RTRN1) 
TEMP3 = SEQRDR. (TEMPI) 
TEMP2 = SEQRDR. (PRPNTR) 
TEMP4 = SEQLR. (TEMP3, H> 
TEMP5 = SEQLR. (TEMP2, F) 
W'R F ,G. 

IPRPNTR .A. 77777K, TEMPI, FNDCPY) 

(TEMPI) 

(CPYRDS, LSTNAM. (FNDCPY)) 

(FNDCPY, STACK2) 



NEWVAL. 
ARANDN. 
NEWTOP. 
NEWBOT. 
T'O POP1 
■R H .L. 

W'R TEMP4 .E. *NEED$ 

PRINT COMMENT S'NEED' 
E'L 
T'O LUP081 



ERROR. $ 



O'E 



TMPVAR = TOP. (TOP. (TEMP5II 
PRVDEF = ITSVAL. (TMPVAR, FNDCPY) 



RVARIABLE PREVIOUSLY DEFINED. COMPARE DEFINITIONS. 

R - 

W'R PRVDEF .NE. 

W'R LSTEQL. (PRVDEF, TOP. ITEMP4)) .NE. 
IRALST. (FNDCPY) 
IRALST. (TEMPI) 
T'O POP1 
E'L 
O'E 



RACD DEFINITION. 
R 

NEWVAL. (TMPVAR, TOP. (TEMP4), FNDCPY) 
W'R VARIAB .E. TMPVAR 

SUBST. (POPBOT. (TEMP4), LINKS) 
CHKO = LSSCPY. (TOP. (TEMP4I) 
NEWTOP. (LIST. (9), TEMP4) 
W'R LEMPTY. (CHKO), T'O LUP081 
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THKGD2 W'R LEMPTY. (ANSWER) 

W'R ALLRC, T'O HERAUS 

W ' R S PR^NT COMMENT $SCAN COMPLETED. SYNTAX ERROR IN INP 

^RINT^COMMeSt tPARTIS) OF INPUT OR NEED STRING(S) NOT SCANNED 

l.f 

T'O LUP153 

PRINT COMMENT $SCAN FAILED. SYNTAX ERROR IN INPUT 
LSTRINGISI.i 
E' L 
LUPl5 j PRINT COMMENT $NO ' TRANSLATED OUTPUT. i 

CHKNUM - 
MAX1 = 

CONCHK = SEQRDR. (SEARCH) 
LUPERR SEECHK = SEQLR. ICONCHK, F] 

W'R F .G. 0, T'O HERAUS 
CHKNUM = CHKNUM + I 
W'R F -L. 0, T'O LUPERR 
I = SEQLR. (MAXCHK, Fl 
OLDMAX = MAX1 
MAX1 =~1 .A. 777777K 
MAX2 = I .RS. 18 
PRINT COMMENT » $ 

W'R CHARAC. (I + 1K6) -E. SOONULI * -AND. MAX1 - MAX2 
1 .L. 6 

P'T N0TE4, CHKNUM „.„„ cn 

V'S N0TE4 = SH'INPUT TERMSI2,H' COMPLETELY SCANNED 

!.'•$ 

O'E 

MAX3 = CHARAC. ( I) 
P'T N0TE5, CHKNUM, MAX3 

V'S NOTES = $H'LAST CHARACTER INSPECTED IN TERM' 
1,12, H' WAS •.RCltH' IN MIOST OF FOLLOWING CONTEXT. •»$ 
PRINT COMMENT $ t 
LINE1 = (MAX2 - l>/6 - 2 
LINEZ = (OLDMAX + 5)/6 - 1 
LINE3 = IMAX1 - 11/6 
THROUGH ERRLUP, FOR I = 0, 1» I -E- 5 

W'R LINE! + I .LE. LINE2 .OR. LINE1 + I .G. 

1 LINE BUFFER(I) = 575757575757K 

O'E 

BUFFER! I) = INPUT(LINE1 + I) 

E'L 

ERRLUP CONTINUE 

P<T N0TE6, BUFFER(0),...,8UFFERf.4) 
V'S N0TE6 = *5C6*$ 

E'L 

T'O LUPERR 
C'E 

SOMERC = IB 

HOLD = POPTOP. (ANSWER) 

ENDCHK = SEQRDR. (HOLD) 

TEMP^ = SEQRDR. (SEARCH) 
LUPSEE SEECHK = SEQLR. (ENDCHK, F) 

TEMP5 = SEGLR. (TEMP<», H) 

W'R F .G. 0, T'O ALLOVR 

W'R TEMP5 .E. JPLEASES, T'O LUPSEE 
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ALLOVR 



ALLGNE 



LtfPOUT 



TEMP = BOT. (SEECHK) 
W'R .NOT. LEHPTY. (TEMP) 

TEMPI = PDPTOP. (TEMP) 

W'R .NOT. LEMPTY. (TEMP), T'O THKGD1 
TEMP2 = TEMPI .RS. 18 
TEMP3 = TEMPI .A. 777777K 
TEMPI = CHARAC. (TEMPI) 

WR TEMPI .NE. $OOOEND$ .AND. TEMPI .NE. 
1 SODNULLt -OR. TEMP3 - TEMP2 .G. 5, T'O THKGOl 
E ' L 
T'O LUPSEE 

E ' L 

R 

RSCAN WAS SUCCESFUL. PRINT OUT 'NEEDED' TERMS. 
R 
W'R 



LUPK'o 

lupi:i 



CHKEMP 



GROUT 



LUP1. 5 
LUP1.7 



LUPK 9 



ALLRC 

PRINT COMMENT 
PRINT COMMENT 
T'O ALLGNE 



C'E 



$ $ 

SACDITIONAL SUCCESSFUL SCAN.$ 



PRINT COMMENT $SCAN SUCCESSFUL. $ 

ALLRC = IB 

PRINT COMMENT STRANSLATEO OUTPUT (IF ANY) FOLLOWS.* 

CONCHK = SEQRDR. (SEARCH) 

TRMNUM = 

CONCL = SEQLR. (CONCHK, F) 

SEECHK = SEQLR. (ENDCHK, G) 

TRMNUM = TRMNUM +1 

W' R F .G. 0, T'O THKGD1 

W'R CONCL .NE. 4NEED$, T'O LUPOUT 

PRINT COMMENT t $ 

W'R SEECHK .E. $NEED$, PRINT COMMENT S'NEED' ERRt 

P'T N0TE7, TRMNUM 

V'S N0TE7 = SH'TERM NUMBER • , I 2, H« . •»$ 

PRINT COMMENT S i 

SEECHK = TOP. (SEECHK) 

INP = OB 

THROUGH LUP101, FOR I = J, 1, I .E. 14 

BUFFER(I) = 575757575757K 

BUFFER(l^) = 777777777777K 

I = D 



G 


= 


30 




WROCNT = 




W 1 


'R 


G .LE. -6 
G = 30 








WRDCNT = WRDCNT 


+ 1 


E 1 


'L 






W' 


'R 


I .E. 8D 








PRNTP. (BUFFER 


(0)) 






T'O LUP103 




E' 


L 






W' 


R 


INP 

INP = IB 








TEMPI = CHARAC. 


( TEMP ] 



TEMP = TEMP + 
W'R TEMPI .£. 
W'R TEMPI ,E. 
T'O LUP113 



1K6 

$OONULL$, T'O LUP107 
tOOOENDS, T'O LUP109 



O'E 



W'R LEMPTY. (SEECHK) 



RDAMb 
SKIP I T 



Rl AD IN. 

'^Y = % S 

RJi. INT: 

,< WH-<C , h . 5 -$ .OR. WORD . f 

MMY = Oj-'.VY . LS. 6 .V. WDRQ .A. 

•< t:.iL iMo, j- u n c T" i ::j -n kftirn 



. i 

77K 



S, T'O SKI PI T 
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M5364 



START 



AROUND 



RETURN 



GOBACK 



READER 



MAO FOR 
LSTOUT) 



5163 PRTLST 
EXTERNAL FUNCTION {NAME 
N'S INTEGER 
BOOLEAN LEMPTY 
E'O PRTLST. 
PRINT COMMENT * $ 
P'T NOTE8B, NAMEt GETMEM. (0) 
V'S NOTEB8 = $C6,H' MEM=',I6*$ 
I - 

LIST. (STACK! 

LISSNM = LSTOUT - 

NUMBER = ITSVAL. (LISSNM, STACK) 
W'R NUMBER .NE. 

P'T NOTE2, NUMBER 

V'S NOTE2 = $H»LIST',I3*$ 

W'R LEMPTY. (STACK! 

PRINT COMMENT * $ 
IRALST. (STACK) 
FUNCTION RETURN 



M5364 



5163 



05, 



O'E 



S = POPTOP. (STACK) 

POINT = POPTOP. ISTACK) 

NUMB = POINT .A. 777777K 

POINT = POINT ,RS. 18 

W'R POINT .E. 1, T'O RETURN 

T'O GCBACK 



E'l 
I + 1 



E'L 

I = 

NUMB = 1 

NEWVAL. (LISSNM, NUMB, STACKI 

P'T NOTE3, NUMB 

V'S NOTE3 = SH' BEGIN*, 13, H» .'•* 

S = SEQROR. (LISSNM) 

L = LSTNAM. (LISSNM) 

W'R L .NE. 

PRINT COMMENT $DLIST.$ 

NEWTOP. (NUMB .V. 1K6, STACK) 

NEWTOP. (S, STACK) 

LISSNM = L 

T'O START , 

PRJNT COMMENT tEND DLIST.* 
G'E 

PRINT COMMENT $NO DLIST.t 

E'L 

W = SEOLR. (S, F) 
W'R F .G. 

P'T N0TE6, NUMB 

V'S N0TE6 = $H'END',I3,H«. 

T'O AROUND 
C'R F .E. 

W'R W .A. 700DD07K5 .NE. 0, 

PRINT COMMENT $LIST NAME. i 

NEWTOP. (NUMB, STACK) 

NEWTOP. IS, STACK) 

LISSNM = W 

T'O START 



• t 



T'O READER 



C'E 



P'T N0TE5, W, W 
V'S N0TE5 = *H. 



'.,C6,H.» 



'.,K12,H. '.»i 
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